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Editorial—i 



Es geht weiter! 

Nach der letzten Doppelausgabe erreichten uns viele Zuschriften, de¬ 
ren Tenor die Frage nach dem Weiterbestehen der Zeitschrift war. 
Nicht klein scheint demnach die Anzahl der Personen zu sein, die be¬ 
fürchten, daß auch die PC Amstrad International nicht mehr lange als 
Informationsquelleßr Besitzer der CPCs und PCWs zu haben sei. 
Lassen Sie sich in diesem Punkt nicht verunsichern. 

Fest steht: Solange es neue Themen und Programme ßr diesen Com¬ 
puter und eine daran interessierte Leserschafl gibt, solange werden 
wir Ihnen, wenn auch nicht mehr monatlich, eine Lektüre an die Hand 
geben, die Ihnen hilft, Kenntnisse und Aktualitäten über Ihr Computer¬ 
system zu erlangen. 

Daß sich dabei das Erscheinungsbild dieses Mediums durchaus verän¬ 
dern kann, ist nur natürlich. Sie werden sehen, daß wir Ihnen in der 
nächsten Ausgabe einen Fragenkatalog zur Ermittlung Ihrer Meinung 
bezüglich des Erscheinungsbildes Ihrer PC Amstrad International prä¬ 
sentieren werden. So ist es möglich, daß wir Ihnen im nächsten Jahr 
Programme und Informationen in anderer Form präsentieren werden. 
Weiterhin werden die CPC- und PCW-Anhänger mit Freude verneh¬ 
men, daß ihnen schon bald erheblich mehr Platz ßr ihre Computersy¬ 
steme in unserer Zeitschrift zur Verßgung stehen wird. Die Abkehr 
von der Behandlung der PCs innerhalb unserer Berichterstattung soll 
dabei nicht als Rückschritt ins finsterste Computermittelalter verstan¬ 
den werden — auch wir haben bemerkt, daß beispielsweise ein 386er 
zuweilen Vorteile gegenüber den 8-Bit-Computern hat -, sondern als 
besonderer Service an der außer durch unsere Zeitschrift informa¬ 
tionsmäßig völlig alleingelassenen Gemeinde der CPC- und PCW-An¬ 
hänger. 

Geben Sie Ihrer Skepsis keine Chance, denn es geht weiter. Erfreuen 
Sie sich vielmehr auch in dieser Ausgabe an dem Feuerwerk von ein¬ 
fallsreicher Software, das wir ßr Sie und Ihren Computer zusammen¬ 
gestellt haben. 

Ihr 

Joachim Freiburg 
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Ein Thema, das so alt ist wie der Computer selbst, ist das Problem der Ab¬ 
lage der Datenmengen, kurz Massenspeicher genannt. Irgendwie will man 
ja seine Daten, die meist in langwieriger Handarbeit eingegeben v erden 
müssen, aufbewahren, um sie später weiter nutzen zu können. Die Idee, 
Programme Jedesmal neu in den Computer zu tippen, um sie abarbeiten zu 
lassen, dürfte nur verstärktes Kopfschütteln hervorrufen. 







l~Bericht 



Bei den ersten Datenspeichern handelte 
es sich zumeist um Lochstreifen, die 
Programme (oder Steuerungsanwei¬ 
sungen) für den Rechner in codierter 
Form enthielten. Viele unter den älte¬ 
ren von Ihnen dürften auch noch Loch¬ 
karten kennen, die bei den ersten Com¬ 
putern, die sich beispielsweise in den 
Schulen breitmachten, das wohl ver¬ 
breitetste Eingabe- und Speichermedi¬ 
um für die Schüler waren. Mußten da¬ 
mals in den ersten Stunden noch wirkli¬ 
che Löcher in Pappkarten gestanzt 
werden, war man schon bald froh dar¬ 
über, wenn die entsprechenden Felder 
per Blei- oder Filzschreiber markiert 
werden durften. 

Von der Lochkarte zur 
Wechselplatte 

Später wurden Bandlaufwerke und die 
erste Form der Festplatte, die Wechsel¬ 
platte. zur Datenspeicherung ent¬ 
wickelt. Bandlaufwerke und Streamer 
sind auch heute noch in Großrechenan¬ 
lagen zur Datensicherung und Aufbe¬ 
wahrung großer Datenmengen in Be¬ 
trieb. Plattenspeicher oderauch Wech- 
selplalten waren die erste Form der 
heute sehr stark in Micro-Computern 
gebräuchlichen Festplatten. Für Mi- 
cro-CompLiter und zum schnelleren 
Austausch von Daten wurden dann 
auch die Diskettenlaufwerke ent¬ 
wickelt. Die ursprüngliche und lange 
gebräuchlichste Form der Disketten¬ 
laufwerke hatten Dimensionen wie 
heutige ATs und konnten Disketten 
fassen, deren Größe an die der Lang¬ 
spielplatten herankam: 8-Zoll-Lauf- 
werke. Die etwas zu groß geratenen 
Schuhkartons gab es auch für den alten 
Apple II zu kaufen (so mancher alter 
Apple-Freak dürrte wohl so etwas noch 


Sparimisch, aber zu 
jener Zeit den ersten 
Computer z weckdien^ 
lieh: die Lochkarten 

besitzen). Später kamen die jetzt übli¬ 
chen 5,25-Zoll- und 3,5-Zoll-Laufwer- 
ke auf den Markt. Die neueste Ent¬ 
wicklung auf dem Sektor der Disket¬ 
tenlaufwerke ist das 2-Zoll-Laufwerk. 
das hauptsächlich für Laptops gedacht 
ist. 

Auf den Markt drängen derzeits auch 
die CD-Laufwerke, die riesigen Spei¬ 
cherplatz (größer als 350 MByte) zu 
leider ebenso horrenden Preise (größer 
als 18 Kilomark) versprechen. Glückli¬ 
cherweise beginnen aber die Preise, 
wie fast überall in der Computerbran¬ 
che, auch bei den CD-Laufwerken ab¬ 
zubröckeln. 

Wir wollen im folgenden nicht Tote 
ausgraben und die Funktionsweise von 
Lochkarten vermitteln — darüber wur¬ 
den mittlerweile so viele Artikel ge¬ 


schrieben, wie Wasser den Rhein her- 
unterfloß —. sondern uns vielmehr mit 
der Entwicklung der Festplatten von 
der Schreibtischgröße bis zum Zigaret¬ 
tenschachtelausmaß. den CD-Roms, 
WORMs und ähnlichen Neuheiten be¬ 
schäftigen. Lassen Sie uns einen klei¬ 
nen Spaziergang von der Gegenwart in 
die ersten Tage der Zukunft der Spei¬ 
chermedien vollbringen. 

Von Schränken zu 
Zigarettenschachteln 

Die Entwicklung der Winchester-Fest- 
platte (der heute gebräuchlichen Form) 
begann etwa 1973. Damals tauchte 
zum erstenmal in der einschlägigen 
Fachliteratur der Name Winchester im 
Zusammenhang mit der Ankündigung 
IBMs auf, eine neue Wechselplatte zu 
konstruieren. 

Diese damaligen Wechselplatten konn¬ 
ten aus ihren Laufwerken entfernt und 
durch andere Platten ersetzt werden. 
Die Probleme dabei waren natürlich 
das komplette Herausfahren der Köpfe, 
um den Platten.stapel überhaupt wech¬ 
seln zu können, und daß das Laufwerk 
in der Lage sein mußte, Jeden beliebi¬ 
gen Plattenstapel zu lesen und zu be- 
sclireiben, egal, wo die einzelnen Spu¬ 
ren lagen. Eigentlich nichts besonde¬ 
res, könnte man meinen, doch bei 20 
Schreib-ZLeseköpfen und 192 Spu¬ 
ren/Zoll mußten die Köpfe genau ju¬ 
stiert sein. 
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Neben ihrem komplexen Aufbau waren 
diese Plattenspeicher auch nicht gerade 
klein. Der damals weit verbreitete und 
auch heute noch in Großrechenanlagen 
benutzte Plattenspeicher IBM 3300 
hatte in seiner kleinsten Version (zwei 
Laufwerke) etwa die Ausmaße zweier 
übereinandergeslellter Schreibtische. 

Staubkörner so groß wie Felsen 

Die Schrcib-ZLeseköpfe der Wechsel¬ 
platten bestanden bis 1966 noch aus 
mehreren Schichten Trafoblech. Später 
erfolgte dann der Übergang auf gesin¬ 
tertes Ferritmaterial. Die durchschnitt¬ 
liche Bitdichte betrug etwa 80 BitZmm-. 
Mil den neuen Köpfen gelang eine Stei¬ 
gerung auf 3350 Bit/mmL 


Zahlen lassen sich die Probleme bei der 
Herstellung der Laufwerke erkennen. 
Die “Flughöhe“ der Köpfe liegt heule 
bei nur noch 0,3 fim (jedes Staubkorn 
ist um ein Mehrfaches dicker). Durch 
diese Verringerung der “Flughöhe“ 
und immer bessere Materialien für 
Köpfe und Oberfläche der Platten wur¬ 
de es möglich, eine Bitdichte von mehr 
als 33000 Bit/mm- zu erzielen. 
Natürlich haben sich auch die Proble¬ 
me erhöht. Die Platten können heutzu¬ 
tage nicht mehr gewechselt werden. Je¬ 
des Eindringen ‘normaler’ Luft in das 
Plattengehäuse würde die Platte irrepa¬ 
rabel schädigen, die Herstellung und 
Reparatur von Festplatten kann nur 
noch in besonderen Reinräumen statt- 
finden. 


Schreib-ZLeseköpfe über einer Park¬ 
spur außerhalb des Datenbereiches in 
Sicherheit bringen. 

Optische Speicher, 
Massenspeicher der Zukunft? 

Die optischen Speicher befinden sich 
seil etwa zwei Jahren auf dem Markt. 
Seil dieser Zeit versuchen die Markt¬ 
strategen der Herstellerfirmen den 
Usern einzureden, daß die Zeit der 
Festplatte vorbei ist. Was ist nun dran 
an diesen markigen Werbesprüchen. 
Man kann die optischen Laufwerke in 
drei Kategorien unterteilen: 

1. CD-ROM-Laufwerke 

2. WORM-Laufwerke 



In Oroßrcchcminhii^L’ii werden liiforimnioiien auch heme noch auf Mii^meihcmderii ^^esicIu’r^. Dem 
verhältnismäßig langsamen Zugriff sieht der günstige Preis gegenüber 


Während die erste Winchester-Fest- 
platte namens IBM 3340 immer noch 
knapp halb so groß wie ein Schreib¬ 
tisch war und knapp 70 MByte Spei¬ 
cherkapazität hatte, sind heute Fest¬ 
platten inzwischen bei 3,5 bis 2 Zoll 
Plattendurchmesser und Speicherkapa¬ 
zitäten von 20 bis 1400 MByte ange¬ 
langt. 

Probleme macht bei diesen Kapazitäten 
natürlich die Beschaffenheit der Ober¬ 
fläche einer Platte sowie die Einhaltung 
der Spur durch die Schreib-ZLeseköp¬ 
fe. Die IBM 3340 hatte zum Beispiel 
Platten mit 14 Zoll Durchmesser und 
300 Spuren pro Zoll. Moderne 3 1Z2- 
Zoll-Laufwerke haben bis zu mehrere 
hundert Spuren pro Zoll. Aus diesen 


Der früher so gefürchtete Headerash 
hat heutzutage aber trotz verminderter 
Flughöhe und erhöhter Bitdichte einen 
Großteil seines Schreckens verloren. 

Aufhängung gegen Headerash 

Bei modernen Platten sind die Köpfe 
meist kardanisch aufgehängt, so daß 
sie sehr schnell ihre “Flughöhe“ errei¬ 
chen und danach kaum noch ausschla- 
gen können, Auch die Oberfläche der 
Platten wird speziell behandelt (leicht 
angerauhl), so daß die Köpfe bei Be- 
lührungen besser auf ihr gleiten kön¬ 
nen. Als letztes besitzen fast alle neuen 
Platten Autoparkvorrichtungen, die 
beim Abschalten des Rechners die 


3. OED-Laufwerke 
Fangen wir mit den CD-ROM-Lauf¬ 
werken an. 

CD-ROM, Read Only 

Diese sogenannten CD-ROMs können 
zwar massenhaft speichern, erlauben 
dem Anwender aber nur das Lesen von 
Daten. Damit eignen sie sich haupt¬ 
sächlich zur Speicherung von sich lan¬ 
ge nicht ändernden Nachschlagewer¬ 
ken und ähnlichem (Shakespeares ge¬ 
sammelte Werke, Who is Who, Le¬ 
xika). 

Die Kapazität der CD-Roms liegt bei 
etwa 650 MByte, die Kosten für ein 
Laufwerk bei 1000 DM. Kosten für die 
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SpcU henueähtm der Zukunfi ist das CD-ROM. Enorme Speicherkapazdäten und ein noc h langsamer 
Datenzugriff sind kennzeichnend ßr diese Art der Datensicherung 


Datenträger betragen von 300 DM bis 
zu einigen tausend DM. je nach Gebiet 
und Anbieter. Die Zugriffszeiten sind 
unter aller Kritik, zwischen 400 Milli¬ 
sekunden bis zu einer Sekunde. Ver¬ 
wendet werden CD-ROMs derzeit 
hauptsächlich für multimediale 
Zwecke (Verbindung von Daten, Au¬ 
dio, Video). 

WORM - Daten fischen 

Als nächstes kamen dann die WORM- 
Laufwerke auf den Markt (WORM = 
Write Once, Read Many; was heißen 
soll: einmal schreiben, öfters mal wie¬ 
der lesen). Diese Laufwerke sind den 
herkönuTilichen magnetischen Spei¬ 
chermedien schon ähnlicher. Sie kön¬ 
nen zwar nur einmal beschrieben wer¬ 
den, aufgrund ihrer hohen Speicherka¬ 
pazität und den kürzeren Zugriffszeiten 
gegenüber Magnetbändern und Mikro¬ 
fiches dürften sie diese in der Zukunft 
verdrängen. Die CDs der WORM- 
Laufwerke haben etwa 30 cm Durch¬ 
messer und können 1 GIGABYTE pro 
Seite speichern. Die Zugriffszeit (na¬ 
türlich je nach Hersteller verschieden) 
beträgt etwa 150 Millisekunden. 

Trotz dieses auf den ersten Blick gigan¬ 
tischen Speichers und den einigerma¬ 
ßen erträglichen Zugriffszeiten ist auch 
hier nicht alles Gold, was glänzt. Diese 
Laufwerke sind, wie der Name es 
schon sagt, nur einmal beschreibbar, 
und auch 1 GIGABYTE wird, wenn 


man alte Daten nicht löschen kann, 
recht schnell gefüllt sein. Dadurch eig¬ 
nen sich WORM-Laufwerke eigentlich 
nur für dokumentarische Zwecke 
(Backups, Netzsicherungen) oder ähn¬ 
liche Zwecke wie die CD-ROM-Lauf¬ 
werke. 

Die magneto-optische Festplatte 

Nach den jahrelangen Entwicklungsbe¬ 
strebungen auf dem Gebiet der lösch¬ 
baren optischen Platte haben sich die 
Hersteller fiir eine Mischung aus be¬ 
währter magnetischer und optischer 
Technik entschieden. 

Die Laufwerke, die nun auf den Markt 
drängen (na ja, so ganz allmählich), ha¬ 
ben in etwa die folgende Daten. Sie 
verwenden wechselbare, beidseitig 
formatierte Platten von der Größe einer 
normalen 5,25-Zoll-Diskette (die Plat¬ 
te befindet sich natürlich in einem Pla- 
stikgehäuse, so daß das Ganze aussieht 
wie eine zu groß geratene 3,5-Zoll- 
Diskette). Speichern kann man auf die¬ 
sen Platten pro Seite etwas mehr als 
320 MByte. Die Zugriffszeit soll (laut 
Hersteller) zwischen 50 und 60 Milli¬ 
sekunden liegen (etwa wie eine etwas 
ältere Seagate-225-Festplatte). Die 
Preise dieser Laufwerke beginnen bei 
etwa 10 bis 15 Kilomark. 

Der größte Vorteil dieser Laufwerke 
ist natürlich ihre Speicherkapazität bei 
wenig Platzvcrbrauch der Platten — 
die derzeitigen externen Laufwerke 


sind im Vergleich zu modernen Fest¬ 
platten noch recht groß. Da sich die 
Größe der magneto-optischen Lauf¬ 
werke wohl im Laufe der Zeit der Grö¬ 
ße moderner Festplatten anpassen wird 
(hoffentlich auch im Preis), ist bei die¬ 
sen Laufwerken wirklich damit zu 
rechnen, daß sie die herkömmlichen 
Festplatten allmählich ablö.sen werden 
(wenn ihr Preis fällt). 

Die Herstellung der magneto-optischen 
Laufwerke bringt auch weniger Pro¬ 
bleme mit sich als die Herstellung von 
Festplatten. Der Abstand der Abtastop¬ 
tik über der Plattenoberfläche beträgt 
etwa 1 mm, bei Festplatten befindet 
sich die Köpfe nur 13.3 Mikrometer 
über der Piattenoberfläche. Dadurch 
verringert sich natürlich der Aufwand 
bei der Herstellung enorm. Es sind kei¬ 
ne Reinräume erforderlich, das herme¬ 
tische Abkapseln der Platten von der 
Umwelt entfällt und so weiter. 
Zusammenfassend kann man zu der 
neuen Technologie der optischen Spei¬ 
cher in etwa folgendes sagen: 

• Die CD-ROMs können als Ersatz für 
große Nachschlagewerke, Daien- 
sammlungen und, man beachte dazu 
die neuesten Entwicklungen in den 
USA, als Datenträger für Spiele her- 
hallcn. Letzteres scheint auch der neu¬ 
este Schlager zu sein, der über den 
“Großen Teich" schwappt, aber wir 
werden auch dieses überleben. Da die 
meisten etwas anspruchsvolleren Spie¬ 
le gleich mehrere Megabyte auf Platte 
belegen und ein Ende hierbei nicht ab¬ 
zusehen ist (von wegen immer besserer 
Grafik und so), spielen mehrere Spiele¬ 
hersteller mit dem Gedanken, ihre Pro¬ 
gramme auf CD-ROMs zu veröffentli¬ 
chen (auf einer leeren Festplatte kann 
man dann wahrscheinlich ein bis zwei 
Spielstände ablegen). 

• Die WORM-Laufwerke können viel¬ 
leicht einmal Bandlaufwerke und Mi¬ 
krofiches ersetzen, aber ihre Beschrän¬ 
kung in bezug auf die Häufigkeit des 
Schreibens auf einen Datenträger 
schließt ihre große Verbreitung wohl 
aus. 

• Die magneto-optische Platte hat al¬ 
les, um die herkömmliche Festplatte zu 
ersetzen. Die heute erhältlichen Lauf¬ 
werke haben alle einen SCSI-An- 
schluß, so daß ihr Anschluß an einen 
AT kein Problem darstellt. Das einzige 
Problem bei diesen Laufwerken ist, 
wie schon des öfteren erwähnt, ihr der¬ 
zeit exorbitanter Preis. Solange dieser 
nicht fällt, werden diese Laufwerke 
wohl nur auf Messen und Chef- 
Schreibtischen stehen. 

(Robert Haas/jf) 
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HotPlot 

Den Steinen auf der Spur 


Bei HotPlot handelt es sich um ein vollständig in BASIC 
geschriebenes Strategiespicl. Hierbei muß der Spieler 
versuchen, mit seiner Spielfigur, die sich am rechten 
Spielfeldrand befindet und die sich mit Hilfe der Cur¬ 
sortasten oder des Joysticks auf und ab bewegen läßt, in 
einer vorgegebenen Zeit eine bestimmte Anzahl von 
ITEMS zu eliminieren, die sich in der linken unteren 
Ecke des Spielfeldes befinden. Dies hört sich jedoch ein¬ 
facher an, als es in Wirklichkeit ist. 

Der Spieler tut dies mit Hilfe seines Wurfsteines, der jeweils 
nur diejenigen ITEMS treffen kann, die die gleiche Gestalt 
wie der Wurfstein selbst haben. Von jedem anderen ITEM 
prallt er ergebnislos ab und kehrt zur Spielfigur zurück. 

Hat der Wurfstein ein ITEM getroffen, so drückt er dieses 
um eine Position nach links (beziehungsweise nach unten) 
und das daneben- oder darunterliegendc ITEM dient nun als 
Wurfstein. Lediglich beim ersten Wurf jeder Runde oder 
nach dem Verlust eines Lebens durch ein MISS ist cs voll¬ 
kommen gleichgültig, welches ITEM man trifft, da der blin¬ 
kende Wurfstein immer trifft. 

Ein Leben verliert man dann, wenn man nach einem Wurf ei¬ 
nen Wurfstein erhält, mit dem man keines der noch vorhan¬ 
denen ITEMS erreichen kann. Dies wird durch die Anzeige 
MISS und einen Signalton angezeigt. 

Sollte in einer Runde die Zeit ablaufen, so Ist das Spiel been¬ 
det, ebeaso, wenn man keine Leben mehr besitzt. 

Hat man eine Runde Überstunden, so erhält man die restliche 
Zeit als zehnfachen Bonus. 

Da sich die Spielfigur am rechten Spielfeldrand nur auf und 
ab bewegen läßt, muß man, um an ITEMS in den hinteren 
Reihen zu gelangen, die Treppen in der linken oberen Ecke 
zu Hilfe nehmen, an denen der Wurfstein .seine Flugrichtung 
ändert. 

Ab Runde fünf sorgt die Anordnung der Treppen für einen 
erhöhten Schwierigkeitsgrad, da man nun nicht mehr jede 
Reihe erreichen kann. 

Ab der zehnten Runde wird zusätzlich manchmal ein 
BLOCK gesetzt, der nur von oben nach unten durchflogen 
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werden kann, nicht aber von der Seite. Ab Runde 20 ist es 
auch möglich, daß zwei solcher BLOCKS pro Runde gesetzt 
werden. 

Informationen für Kassettenbenutzer 

Dieses Programm besteht in der Form, wie es im Heft abge¬ 
druckt ist, aus zwei Teilen. Listing 1 stellt hierbei das Haupt¬ 
programm dar, welches dann noch die Highscore-Liste 
(TOPPLOT.DAT) sowie das Titelbild (PLOT.PIC) nach¬ 
lädt. Diese zwei Dateien werden von dem Lader {Li.sting 2) 
erst generiert. Das heißt, nach dem Eingeben von Listing I 
und dem Abspeichern desselben sollten Sie eine andere Kas¬ 
sette einlegen und dort das abgetippte Listing 2 abspeichern. 
Bevor Sic dieses Programm nun starten, legen Sie wieder die 
erste Ka.ssette ein. 

Ebenfalls ist es empfehlenswert, folgende Zeilen in Listing 1 
einzufügen: 

5 MODE 2:PRINT“Bitte Jetzt den Bandzähler auf Null stellen und 
nach dem Laden des Programms dorthin zurQckspulen“:CALL &BB06 

Nachdem das Programm nun vollständig geladen ist, spulen 
Sie die Kassette bis zum Zählerstand Null zurück. Selbiges 
tun Sie auch, wenn zwischenzeitlich der Spielstand abgespei¬ 
chert wurde. 

(Michael Peter/rs) 


Anwendungsprogramme 
für CPC oder JOYCE 

ADRESCOMP Adressendateiprogramm 58,- DM 

DATENREM universelles Dateiprogramm 68.- DM 

ETATGRAF Haushaltsbuch mit Grafik 58,- DM 

FIBUCOMP Buchführung 98,- DM 

FIBUPLAN Buchführung mit MwSl-Berechnung 148,- DM 

KALKUREM Tabellenkalkulation (Version 2.0) 78,- DM 

LAGDAT praktisches Lagerdateiprogramm 68,- DM 

PROFIREM Rechnungen, Lager-, Adressendatei 138.- DM 

TEXTCOMP kleines Textprogramm für PCW 58.- DM 

TEXTKING Textprogramm (nur CPC) 78.- DM 

VOKABI universeller Vokabellrainer 58.- DM 

Programine Jeweils auf 3“-Diskette. Versand per Vorkasse (portofrei). 
Nachnahme (plus 5 DM). Aktuelles Info anfordern (bitte Computertyp angeben)! 

Elfriede van der Zaim, Software-Entwicklung & Vertrieb 
Schieferstätte, 2949 Wangerland 3, Tel. 04461 / 5524 
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Beim CEUS, eine 
CPC-Benutzeroberfläche 

5 . Folge: Menüs, Alertboxen 
und Software-Uhr 

Die CEUS-Toolbox strebt unaufhaltsam ihrer Vollen¬ 
dung entgegen. Während die letzten Folgen einen Win- 
downianager und eine Bildschirmsteuerung brachten, 
enthält diese Folge zwar weder das Leben, noch das Uni¬ 
versum, dafür aber den ganzen Rest. 



So, wo wir nun bereits Befehle haben, 
mit deren Hilfe wir Fenster verwalten 
und Bildschirme steuern können, wird 
es langsam Zeit für einige nette Routi¬ 
nen, die alle diese Funktionen ausnut¬ 
zen. Das erste - und sicherlich auch 
sehr häufig gebrauchte — dieser Hilfs¬ 
mittel ist eine Menüroutine. 

Die Götter bitten zu Tisch 

Die CEUS-Menüroutine ist ein weite¬ 
rer Punkt, der dem Programmierer die 
Arbeit wesentlich erleichtern kann. 
Erinnern wir uns: Am Anfang war das 
BIT. Später folgten dann Bytes und 
Worte, und die Computer lernten, sich 
auszudrücken. Zu jenen Zeiten, als 
CP/M noch neu und Computer noch 
teuer waren, erwartete man vom Be¬ 
nutzer. daß er sich dieser Kommunika¬ 
tionsweise des Computers anpaßte: Er 
mußte bestimmte (manchmal auch 
mehrere) Tasten drücken, um dem 
Computer seine Wünsche begreiflich 
zu machen. Etwas später folgten dann 
die sogenannten Speisekarten (englisch 
Menu), die dem User auf dem Bild¬ 
schirm eine gewisse Auswahl boten: 


1. Programm beginnen 
I 2. Programm beenden 
j 3. Diskette formatieren 
^ 4. Diskette kopieren 

.. .und so weiter. Der Anwender konnte 
sich jetzt eines dieser Gerichte (neu¬ 
deutsch: Menüpunkt) aussuchen und 
die dazugehörige Taste drücken. 

Es versteht sich von selbst, daß sol¬ 
cherlei vorsintflutliche Systeme in un¬ 
seren modernen Programmen keinen 
Platz mehr haben. Die Menüpunktc 
gibt es weiterhin, aber deren Ansteue¬ 
rung wird nicht mehr durch den Finger 
auf der Tastatur, sondern auf elegante 
Art und Weise durch einfaches An¬ 
klicken mit dem Cursor erledigt. 

Zu diesem Zweck stellt CEUS den Be¬ 
fehl 


IMENU,x,y, 

@mnu%, 

(a)pktl$, 

(a)pkt2$,..., 
pktn$ 

zur Verfügung. 

Dabei sind X,Y 
die Koordinaten 
der linken oberen 
Ecke des Menüs, 
mnu% eine Varia¬ 
ble zur Zurückga¬ 
be des angewähl¬ 
ten Menüpunktes 
und pktl$ bis 
pktn$ bis zu 23 
verschiedene Me¬ 
nüpunktc. Nach 
der Aktivierung 
des Befehls wer¬ 
den zunächst aus 
der Parameter¬ 
zahl die Anzahl 
der Menüpunktc ermittelt, danach ein 
Fenster ab x/y geöffnet und sämtliche 
Menüpunkte hübsch untereinander im 
Window dargestellt. Es folgt eine 
Event-Routine, die alle 1/25 Sekunden 
ein bestimmtes Unterprogramm aufruft 
und die Cursorsteuerung anspringt. 

Jetzt wird es ereignisreich 

Während man nun mit dem Cursor auf 
dem Bildschirm hcrumfahren kann, 
überprüft diese Event-Routine eben 
alle 1/25 Sekunden, ob sich der Cursor 
gerade auf einem Menüpunkt befindet. 
Ist dies der Fall und befand er sich 1 125 
Sekunde vorher noch nicht dort, so 
wird der entsprechende Menüpunkt in¬ 
vertiert. Befindet sich der Cursor aber 
nicht auf einem Menüpunkl und war 
dies 1/25 Sekunde vorher noch der 
Fall, so wird der bewußte Balken ein¬ 
fach wieder abgebaut. 

Drückt man nun auf COPY/FEUER. 
so wird zunächst der Event wieder aus¬ 
gekoppelt, das Window abgebaut und 
- falls sich der Cursor auf einem Me¬ 
nüpunkt befand — dessen Nummer an 


den Anwender zurückgegeben. Ein 
Name für die Menüs ist bisher nicht 
vorgesehen, kann aber einfach pro¬ 
grammiert werden. Das einzige Pro¬ 
blem bei der Realisierung dieser Menü¬ 
routine ist, daß man sich mit Event- 
Programmierung beschäftigen muß. 
Ein Event (englisch für Ereignis) ist im 
CPC ein Prozeß, der immer nach Ab¬ 
lauf einer bestimmten Zeit aufgerufen 
wird und dabei das laufende Programm 
unterbricht. Nach der Abarbeitung der 
Event-Routine wird das unterbrochene 
Programm dort weitergeführt, wo es 
unterbrochen wurde. 

Die Betriebssystemroutinen zum Initia¬ 
lisieren eines Events verlangen als Pa¬ 
rameter die Adresse der Event-Routi¬ 
ne, die Adresse eines 13 Byte großen 
Buffers, die Zeit zwischen dem Auftre¬ 
ten zweier Events in 1/50 Sekunden 
und den Typ des Events (siche CPC 
Firmwarehandbuch). 

Pack’ das Icon in den Kasten... 


Der zweite Befehl, der umfassend auf 
die gesamte Toolbox zurückgreift, ist 
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x.y: Koordinaienangahen. wobei x und 

V hei Windows Zcichenkoordina- 
len, bei Iconx Pixelkoordinalen 
sind. 

■tl.yl: Längenangahen in Zeichen 

mun,i: Icon- oder Windownummem 

adrjaen: Adressen- beziehungsweise 

Längenungaben 

Zeitangabe in einem String nach 
dem Formal HH.MM.SS 

ic$: Ein Siring mir der maximalen Län¬ 

ge von 144 Zeichen. Er enthält die 
Bilddaten ßir ein Icon im Formal 
/c$ = r/»r$(Z>»f7J + 
chr^ (bte2).... wobei bteJ das Byte 
links oben, btc2 das rechts davon 
ist und so weiter. 

text$,pktn$: Strings, die einen Menüpunkt oder 
eine Zeile einer Alertbox enthalten 

I) Der Window-Manager 

I WINDOW.IN,x,y,xl,yl,(a>adr%, 
@laen% 

Kopien den BUd.schirmhereich von X/Y bis 
X+XL/Y+YI, in den Speicher und gibt .seine 
Adresse und Länge in adr% beziehungsweise 
laen % zurück 

lWINDOW.OUT,x,y,xl,yI,adr%, 

laen% 

Biendet einen mit IWINDOW./N kopierten Be¬ 
reich. der an der Adresse adr% liegt und die Län¬ 
ge laen% hat, wieder in den Bildschirm ein und 
gibt den belegten Speicher frei 

lWINDOW.DRAW,x,y,xl,yl 

Zeichnet ein Window über den Bereich von X/Ybis 
X+XL/Y-i-YL 

ISHADOW.ON 

Schaltet den Schatten ein (Voreinstellung) 

Tabelle l : Eine Übersicht über alle CEUS-Befehle 

die Alertbox-Funktion. Eine Alertbox 
ist ein spezielles Window, in dem eine 
kurze Meldung oder Abfrage (in unse¬ 
rem Fall bis zu 5 Zeilen) erscheint, auf 
die der Benutzer dann über 2 Icons rea¬ 
gieren kann. 

Das kann zum Beispiel eine Sicher¬ 
heitsabfrage sein ('Wollen Sie nicht 
doch lieber alles löschen?’), und die 
Reaktion kann im Anklicken eines 
’YES’- oder eines ’NO’- Icons be¬ 
stehen. 

Unser Befehl 

IALERTBOX,il, i2, @flag%, 

(atextl$, CStext2$, (StextnS 
(n zwischen 1 und 5) 
geht dabei so vor, daß er zunächst ein 
Window mit der halben Bildschirmgrö¬ 
ße öffnet, den Text ausgibt, die Icons 
mit den Nummern il und i2 darstellt 
(an 240/207 und 352/207) und danach 
zu GETIC springt. Der gelieferte Icon¬ 
wert wird mit il und i2 verglichen. 
Stimmt er mit keinem davon überein, 
wird GETIC nochmal aufgerufen, an- 


ISHADOW.OFF 

Schaltet den Schatten aus 

lWINDOW.OPEN,num,xi.yl,x2, y2 

Eröffnet über xl/yl, x2/y2 ein Window mit der 
Nummer num. Der Hintergrund wird gerettet, das 
Window gezeichnet utui als System-Window initiali¬ 
siert. Es kann mit PRINTw=num beschrieben 
werden. 

IWINDOW.NAME,num,xl ,y 1 ,x2, 
y2, name$ 

Wie I WINDOW. OPEN, nur wird das Window mit 
der Überschrift au.\- name$ versehen 

IWINDOW.CLOSE 

Schließt das 'oberste' Window 

IWINDOW.HIDE,num 

'Versteckt' das Window mit der Nummer num, das 
heißt, das Window wird ausgeblendet utui im Spei¬ 
cher abgelegt 

lWINDOW.SHOW,num 

Stellt ein mit I WINDOW.HIDE verstecktes Window 
wieder dar 

IWINDOW.POP,num 

'Poppt' das Window mit der Nummer num nach 
oben, das heißt, es wird über alle anderen Windows 
gelegt 

II) Die Bildschirmstcuerung 
lFILL,bte 

Füllt den gesamten Bildschirmspeicher mit dem 
Byte bte 

ICURSOR 

Stellt einen Cursor in Pfeilform auf dem Bildschirm 
dar, der mit den Cursortasten/COPY oder einen 
Joystick bewegt werden kann. Die Koordinaten 
werden als Grafikcursorkoordinaten übergeben, 
der Cursor kann also mit MO VE x.y positioniert und 
über XPOS und YPOS abgefragt werden. 


sonsten wird die entsprechende Num¬ 
mer in flag% zurückgegeben und das 
Fenster geschlossen. 

Pünktlich 

Als letzten Teil enthält die Toolbox 
noch die Software-Uhr. Eine Uhr ge¬ 
hört ja sowieso zu den Dingen, die dem 
CPC standardmäßig wirklich fehlen. 
Es gab inzwischen viele Lösungen für 
dieses Problem, aber keine konnte ei¬ 
gentlich so richtig überzeugen; wie 
wäre es mit der folgenden? 

Diese Software-Uhr wird beim Pro¬ 
grammstart automatisch initialisiert 
und auf 0 gestellt. Sie arbeitet dann - 
ebenfalls über einen Event - im Hin¬ 
tergrund weiter. Sie kann über den Be¬ 
fehl lGETTIME,(i)t$ abgefragt wer¬ 
den. In t$ gibt der Befehl dabei die 
Uhrzeit im Format HH:MM:SS zu¬ 
rück, mit dem Befehl lPUTTIME,@t$ 
kann sie über einen String dieses For¬ 
mates gestellt werden. Der Befehl 


lDEFICON,num,(Sic$ 

Definiert ein Icon mit der Nummer num mit den 
Daten au.s' k$. Existiert bereits ein Icon mit der 
Nummer num, so wird es überschrieben. 

IICON,x,y,num 

Stellt das Icon mit der Nummer num an den Koor¬ 
dinaten X/Y auf dem Bildschirm dar. Die Koordi¬ 
naten geben die Position der linken oberen Ecke 
de.'i Icons an und werden auf Bytewerte gerundet. 

IGETICON,@num% 

Fragt die dargestellten Icons mit dem Cursor ah. 
Die Nummer des angewählten Icons wird in 
num% zurückgegeben. 

ni) Der Rest 

IMENU,x,y,(amnu%,@pktl$, 

...pktn$ 

Erstellt ein Menü ah den Koordinaten X/Y aus den 
Menüpunkten pkll$ bis pktn$. Die Menüpunkte 
können mit dem Cursor angewählt werden. Die 
Nummer eines angewählten Menüpunktes wird in 
nmu% z.urückgegeben. Wird kein Punkt ange¬ 
wählt, enthält innu% den Wert 0. 

lALERTBOX,il,i2,(a)flag%, 
(Stextl$,...te xtn$ 

Stellt eine Alertbox mit dem Text aus textl% bis 
fextn$ und den Icons il und i2 dar und läßt die 
Icons über den Cursor abfragen. Die Nummer des 
gewählten Icons wird in flag% zurückgegeben. 

lPUTTIME,Ca3tme$ 

Stellt die Uhr nach der Zeit aus f/yipS 

lGETTIME,C|)tme$ 

Legt die aktuelle Uhrzeit in fweS ab 

IQUIT 

Schaltet die Toolhox ab und gibt den Speicher frei. 


IQUIT dient schließlich dazu, die ge¬ 
samte Toolbox aus dem Speicher zu 
entfernen und diesen wieder freizu¬ 
geben. 

GAME OVER 

Soweit also die Toolbox. Zum Ab¬ 
schluß gibt es noch einmal einen Über¬ 
blick über sämtliche CEUS-Befehle, 
und in der nächsten und letzten Folge 
kommen dann endlich diejenigen zum 
Zug, die bisher in dieser Serie etwas 
vernachlässigt wurden, obwohl CEUS 
gerade für sie eine große Hilfe sein 
kann: die BASIC-Programmierer. An¬ 
hand von mehreren absolut nützlichen 
Utilities wie Taschenrechner, Notiz¬ 
block und Kalender erhält man einen 
Überblick über die tatsächliche Lei¬ 
stungsfähigkeit unserer Befehle und 
bekommt auch gleich noch ein paar 
nützliche Hilfsmittel mit auf den Weg. 

(Jörg Schwieder/jf) 
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Einen Moment mal/ 

Interrupt-Kursus für den CPC 

Im dritten Teil unseres Interrupt-Kurses wollen wir zuerst auf eine der am 
häufigsten programmierten Interrupt-Varianten eingehen, den selbstpro¬ 
grammierten Interrupt. Dieser findet zwar auch in der Assemblerprogram¬ 
mierung eine schwerpunktmäßige Anwendung, er soll aber hier der Ver¬ 
ständlichkeit zuliebe in BASIC erklärt werden. 


Das eigentliche Geheimnis der selbst¬ 
programmierten Interrupts liegt darin, 
daß diese keine Interrupts im her¬ 
kömmlichen Sinne, das heißt dem Be¬ 
triebssystem übergeordnet sind, son¬ 
dern aus der Ebene der Programmier¬ 
sprache gesteuert werden. Deshalb 
werden sie auch in der Abgrenzung zu 
herkömmlichen Interrupts als 
“Events“ bezeichnet: es ist im Prinzip 
nichts anderes als ein bedingter GO- 
SUB-Aufruf. Die Aufrufe dieser 
Events sind im Vergleich zu den “nor¬ 
malen“ Interrupts nur bedingt von der 
verstrichenen Zeit abhängig, da die 
Ausführung von der Anzahl der Pro¬ 
grammdurchläufe gesteuert wird. Da 
die Event-Verwaltung vom Benutzer 
selbst programmiert werden muß, er¬ 
gibt sich auch gleich die erst Schwäche 
dieser Methode. Bei jedem Programm¬ 
durchlauf muß abgefragt werden, ob 
die Event-Unterroutine ausgeführt 
werden soll oder nicht. Dabei geht na¬ 
türlich mehr Zeit verloren, als wenn 
das Betriebssystem dieses intern regelt. 
Diese Programmierung bietet sich aber 
vor allem deshalb an, weil ein ständi¬ 
ges Ein- und Aushängen wie bei sy¬ 
stemeigenen Interrupts entfällt. Außer¬ 
dem ist mit dieser Methode gewährlei¬ 
stet. daß man den genauen Zeitpunkt 
der Unterbrechung im Programmab¬ 
lauf vorgeben kann. Damit entfällt 
auch ein lästiges “Schützen“ von Pro- 
grammteilcn (wie in einer der vorigen 
Folgen erläutert), da die Abfrage, ob 
ein ein Unterprogrammaufruf stattfin- 
den soll, immer an derselben Stelle im 
Programm steht. 

Die zentrale Stelle im obenstehenden 
Programm ist Zeile 100. Hier werden 
alle drei Programmdurchläufe des Un¬ 
terprogramms für die Straßenverwal¬ 
tung aufgerufen. Zusätzlich wäre noch 
zu erw^nen, daß auch eine Quasi- 
Zeitabfrage bei selbstprogrammierten 
Interrupts möglich ist. Dabei wird die 
Systemvariable TIME in folgender 
Weise benutzt: Zuerst wird eine Varia¬ 
ble für die Zeit initalisiert A=TIME. 
Die eigentliche Steuerung übernimmt 
aber nachstehende Anweisung: 

IF TIKE-A> (ZEIT IN 1/300 SEKUNDEN) THEN 
A»TIME: GOSUB (UNTERPROGRAMM) 


Mit dieser Zeile wird etwa im angege¬ 
benen Zeitintervall eine Unterpro¬ 
grammroutine aufgerufen. 

Da die Verwaltung trotzdem immer 
noch auf den Programmdurchläufen 
aufbaut, wird die angegebene Zeit 
zwangsläufig immer überschritten, da 
der Aufruf erst dann erfolgen kann, 
wenn das Programm an die Stelle ge¬ 
kommen ist, an der die entsprechende 
Abfrage steht. 

Grundlagen der 
Maschinen-Interrupts 

Sicher ist Ihnen im Verlauf dieses In¬ 
terrupt-Kurses die Frage nach den ei¬ 
gentlichen Steuermechanismen im Be¬ 
triebssystem gekommen. Die Hard¬ 
ware Ihres CPCs, genaugenommen das 
sagenumwobenen “Gate Array“, er¬ 
zeugt nun den einzigen Interrupt-Im¬ 
puls. der alle 1/300 Sekunden auftritt. 
Alle weiteren Interrupts bauen auf die¬ 
sem Impuls auf, das heißt, sie betragen 
ein Vielfaches von ihm. Der schnellste 
aller Interrupts auf dem CPC ist der so¬ 
genannte Fa.st Ticker, der synchron 
zum 1/300-Sekunden-Impuls läuft. Ein 
weiterer Interrupt ist der Frame Fly- 
back, der alle 1/50 Sekunden auftritt 
und den Bildrücklauf koordiniert sowie 
alle Farbregister versorgt. Der dritte 
systemeigene Interrupt ist der Ticker, 
der wieder vom Fast Ticker abgeleitet 
wird und auch alle 1/50 Sekunden ein- 
tritt. Von diesen drei verschiedenen In¬ 
terrupts können auch mehrere parallel 
auftreten. Damit das Betriebssystem 
diese interne Verwaltung bewerkstelli¬ 
gen kann, werden die für jeden Inter¬ 
rupt benötigten Informationen in einem 
sogenannten Event-Block zusammen¬ 
gestellt. 

Diese Informationen geben dem Sy¬ 
stem Angaben über den momentanen 
Status des Interrupt-Unterprogramms. 
Es wird also abgefragt, ob es aktiv ist 
oder nicht, denn es ist auch möglich, 
ein Unterprogramm kurzzeitig zu sper¬ 
ren, ohne den Event-Block löschen zu 
müssen. Außerdem erhält das System 
Angaben über die Priorität und die An¬ 
zahl der Aufrufe sowie die Adresse des 


Unterprogramms. Alle Event-Blocks, 
die zu einer Interrupt-Art (zum Bei¬ 
spiel Frame Flyback) gehören, sind un¬ 
tereinander durch Pointer verkettet, ei¬ 
ner Information, die angibt, wo im 
Speicher der nächste Block zu finden 
ist. Tritt einer der drei Hardware-Inter¬ 
rupts auf (Fast Ticker, Frame Flyback, 
Ticker), werden die Interrupt-Blocks, 
falls vorhanden und aktiv, nach ihrer 
Priorität abgearbeitet. In dieser Rei¬ 
henfolge werden sie dazu zuerst in eine 
bestimmte Kette, die Pending Queue, 
eingereiht (in der Fachsprache auch 
Kicken genannt). Nach dem Einreihen 
werden die Interrupt-Blocks der Pen¬ 
ding Queue dann der Reihe nach abge¬ 
arbeitet. Es gibt jedoch Möglichkeiten, 
diese Einordnung zu umgehen. Zum 
einen durch sogenannte asynchrone 
Interrupts, die sofort gekickt werden, 
zum anderen durch Express-Interrupts, 
die die höchste Priorität unter den 
Events haben. Die asynchronen Inter¬ 
rupts haben nun den Vorteil, daß sie 
nicht nur vom System bearbeitet wer¬ 
den wie die Synchrone-Events, son¬ 
dern daß dieses sic selbsttätig ausfühii. 
nachdem das Einreihen der anderen In¬ 
terrupts vonstatten gegangen ist. Bei 
den anderen (synchronen) Interrupts 
wird nur ein Zähler im Event-Block er¬ 
höht, der die Anzahl der Aufrufe spei¬ 
chert, höchstens jedoch 127. Eine zu¬ 
sätzliche Möglichkeit bietet nun noch 
die Kombination der beiden obenge¬ 
nannten Sonderformen. Es entsteht so 
ein asynchroner Express-Iruerrupr, der 
seinerseits, ohne Zeitverzögerung 
beim Kicken direkt ausgeführt wird. Er 
ist somit die beste und leistungsfähigste 
Unterbrechung des CPC. 

MC"Programmierung 

Nun wollen wir endlich dazu kommen, 
wie der Event Block in der Praxis ange¬ 
wendet und programmiert wird. Dazu 
müssen wir erst einmal auf die genaue 
Struktur dieses Informationsftaketes 
eingehen. Grundsätzlich ist es uninter¬ 
essant, an welcher Stelle im Speicher 
ein Event-Block steht, es muß nur dar¬ 
auf geachtet werden, daß er sich im 
Speicherbereich von hexadezimal 
&4000 bis &BFFF, dem zentralen 
RAM. befindet. Dieser Bereich ist aber 
nur als theoretische Begrenzung zu se¬ 
hen, da in den höheren Speicheradres¬ 
sen systemeigene Routinen, zum Bei¬ 
spiel die Betriebssystemvektoren oder 
verschiedene Parameter des Disketten- 
betriebssysicms. stehen, die natürlich 
nicht einfach überschrieben werden 
sollten. Im Normalfall kann man davon 
ausgehen, daß Operationen im Bereich 
bis &A600 ungeföhrlich sind. Falls 
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man parallel noch mit BASIC arbeitet, 
muß man natürlich die MC-Routinen 
durch Memory-Befehle absichern und 
noch genügend Platz für Variablen las¬ 
sen. Der Speicher außerhalb des zen¬ 
tralen RAM kann deswegen nicht be¬ 
nutzt werden, weil man auf ihn nur 
dann zugreifen kann, wenn es die 
ROM-Konfiguration erlaubt, daß 
heißt, das dem RAM parallel liegende 
ROM muß abgeschaltet sein; doch dies 
ist nicht immer gewährleistet. 

Der Event’BIock 

Im folgenden wollen wir nun auf die 
genaue Bedeutung der einzelnen Bytes 
im Event-Block eingehen. 

Der Event-Block teilt sich in zwei Teil¬ 
bereiche auf; der eine Teil verwaltet 
die einzelnen Blöcke, bevor sie in die 
Pending Queue eingereiht werden, der 
andere enthält die Daten des Unterpro¬ 
gramms. die für die spätere Koordina¬ 
tion notwendig sind (zum Beispiel die 
Regelung der Prioritätsslufe). Die Län¬ 
ge des ersten Teils variiert je nach Art 
des verwendeten Interrupts zwischen 2 
und 6 Byte, letzteres ist aber nur beim 
Ticker-Interrupt der Fall. Bei allen drei 
Interrupts haben die ersten beiden 
Bytes keine Bedeutung für den Pro¬ 
grammierer. sondern werden vom Sy¬ 
stem für interne Operationen benötigt. 
Bei Frame-FIyback- und Fast-Ticker- 
Inierrupts schließt hiernach direkt der 
zweite Teil des Event-Blocks an. bei 
Ticker-Interrupts geben die nächsten 
beiden Bytes an, wieviel Zeit (in 1/50 
Sekunden) noch verbleibt, bis der Je¬ 
weilige Block gekickt wird. Dieses Re¬ 
gister wird ständig vom System verän¬ 
dert. Das dann folgende Bytepaar ent¬ 
hält die Information, in welchem Zeil- 
intervall (auch in 1/50 Sekunden 
angegeben) oben genanntes Einreihen 
vonstatten geht. Mit ihm wird das 
Zählregister, das vom System herun¬ 
tergezählt wird, geladen, wenn dieses 
bei Null angelangt ist und somit der 
Block gekickt wurde. Am Anfang des 
zweiten Teils des Event-Blocks sind 


nun erst einmal wieder 2 Byte für inter¬ 
ne Kettungsvorgänge reserviert. Diese 
sorgen für Ordnung innerhalb der Pen¬ 
ding Queue und sind für den Program¬ 
mierer ohne wesentliche Bedeutung. 
Mit dem nächsten Byte beginnt nun der 
eigentlich ausschlaggebende Teil. Die¬ 
ses ist nämlich das Zählbyte, welches 
nun mehrere Aufgaben hat. Zum einen 
wird es bei jedem Kickvorgang erhöht 
und kann so bis zu 127 Aufrufe ver¬ 
merken. Eine Ausnahme sind jedoch 
die asynchronen Interrupts, bei denen 
der Zähler nicht erhöht wird, wenn er 
vorher den Wert null hatte, da solche 
Events quasi sofort ausgefühit werden 
und so nicht gespeichert werden müs¬ 
sen. Ist der Wert ungleich Null, findet 
auch dort nur eine Zählererhöhung 
statt. Zum anderen bietet das Zähler¬ 
byte eine komfortable Möglichkeit, ein 
spezielles Interrupt-Programm zu sper¬ 
ren. indem man einfach die Ausfüh¬ 
rung des Event-Blocks verhindert. 
Dazu wird dieses Register einfach mit 
einem Wert größer 127 (hexadezimal 
&7F) geladen. Das jetzt folgende Byte 
ist ein Multifunktionsregister, in dem 
jedes Bit (oder eine Gruppe von Bits) 
eine Information übergibt. Das erste 
Bit gibt die ungefähre Lage der zum 
Event-Block gehörenden Interrupt- 
Routine im Speicher an. Im Regelfall 
ist dieses Bit gesetzt (also eins), es sei 
denn, die Routine steht im oberen 
ROM-Bereich. Die nächsten vier Bits 
bestimmen die Priorität des Events, 
wobei diese Bits als eine binäre Zahl 
aufgefaßt werden. Je höher diese Zahl 
ist. desto höher ist auch die Priorität 
des entsprechenden Interrupts. Bit 
.sechs muß immer null sein, da es vom 
System benötigt wird. Das folgende Bit 
gibt im gesetzten Zustand an, daß es 
sich um einen Express-Interrupt han¬ 
delt. Das letzte Bit dieses Bytes enthält 
nun schließlich die Information, ob der 
Interrupt synchron (Bit=0) oder 
asynchron (Bit = l) ist. Die folgenden 
zwei Bytes haben jetzt wieder eine 
weitaus leichtere Aufgabe, sie geben 
die Adresse der Interrupt-Routine an. 


aufgespalten nach LO- und HI-Byte. 
Danach folgt ein Byte, das nur benutzt 
wird, wenn die Interrupt-Routine im 
oberen ROM-Bereich steht. Das Regi¬ 
ster gibt dann die ROM-Nummer an. 
Hiernach können beliebig viele Bytes 
folgen, in denen beispielsweise Para¬ 
meter an das Interrupt-Unterprogramm 
übergeben werden. 

Programmierung des 
Event-Blocks 

Nachdem jetzt ausführlich auf die ein¬ 
zelnen Bedeutungen der Bytes im 
Event-Block eingegangen wurde, wol¬ 
len wir noch eine kurze tabellarische 
Zusammenfassung der für den Pro¬ 
grammierer wichtigen Bytes bringen, 
die benötigt werden, um einen Inter¬ 
rupt cinzuhängen: 

Byte A: .systemversorgt 
Byte B: systemversorgt 
Byte C: nur Ticker, beim Einhängen 
übergeben 

Byte D: nur Ticker, beim Einhängen 

Byte E: nur Ticker, beim Einhängen 

Byte F: nur Ticker, beim Einhängen 

Byte 1: systemversorgt 

Byte 2: systemversorgt 

Byte 3: Zähler, systemversorgt 

Byte 4: Multifunktionsregister 

Bit 1: RAM(l)/ROM (0) 

Bit 2-5: Priorität 
Bit 6: 0 

Bit 7: Express (1) 

Bit 8: Asynchron (l) 

Byte 5: LO-Byte der Ansprungsadr. 
Byte 6: HI-Byte der Ansprungsadr. 
Byte 7: ROM-Nummer (nur wenn Byte 
4, Bit 1 = 0) 

Byte 8: beliebig (siehe oben) 

In der nächsten Folge: 

Fortsetzung der Event-Block-Pro- 
grammierung 

Notwendige Sprungadressen 
Beispielprogramme zu den einzelnen 
Interrupt-Arten 

(Jens Buri & Matthias Wittern/cd) 


10 REM SeispielProgramm [696] 

20 MODE 1 [506] 

30 PEN 1 [549] 

40 80RDER 0,0:INK 0,0:INK 1,11;INK 2,i8:IN [2331] 

K 3,6 

50 pal6 t410] 

60 x=20ry=24 [795] 

70 FOR t=l TO 25:GOSUB i60;NEXT t [1717] 


80 IF JOY{0)s4 THEN LOCATE x,y:x=x-l;lF TE [8446] 
ST(16*x-B,408-y*16)<>0 OR TE5T(16»x-8,426- 
y*16)<>0 THEN 190 ELSE PRINT CHR$(32):LOCA 
TE X ,y;PRINT CHR$(239) 

90 IF JOV(0)=8 THEN LOCATE x.y:x=x+l;lF TE [7215] 
ST(16*x-8,40e-y*16)<>0 OR TEST(16«x-8,426- 
y»16)<>0 THEN 190 ELSE PRINT CHR$(32):LOCA 
TE x.yrPRINT CHR$(239) 
üsting: INTERRUPT 


100 2 = 2 +l:IF 2=3 THEN 2=0:G0SUB 120;'Event [3483] 


aufruf 

110 GOTO 80 [306] 

120 REM Unterprogramm Strasse [1271] 

130 a=lNT(RN0»2) [1282] 

140 IF a=l AND p<30 THEN p=p+l [1718] 

150 IF a=0 AND p>l THEN p=p-l [1281] 


160 LOCATE X.yrPRINT CHR$(32);LOCATE 1,1:P [8823] 
RINT CHR$(11>;LOCATE x.yrPRINT CHR$(239):P 
EN 2rLOCATE p.lrPRINT CHR${229);" 

CHR$(229);:PEN 1 

170 IF TEST{16*x-8,426-y»16)<>0 THEN 190 [2056] 

180 RETURN [555] 

190 PRINT CHR$(32);PEN 3:LOCATE x.yrPRINT [2955] 
CHR$(238)::LOCATE 1,1:END 


üsting INTERRUPT 
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Geldgeschäfte 

Kontoführung auf dem CPC 


Der Sinn dieses Programms ist es, immer über den ak¬ 
tuellen Kontostand informiert zu sein. Kontoauszüge 
sind meistens nicht auf dem laufenden, wenn zum Bei- 
piel zwischenzeitlich Schecks ausgestellt wurden, die 
noch nicht bei der Bank eingegangen sind. 

Außerdem ist damit eine wirksame Kontrolle der Bu¬ 
chungsvorgänge möglich. 


Mit diesem Programm kann man zwei Konten gleichzeitig 
verwalten. Es besitzt viele nützliche Routinen, so kann man 
zum Beispiel immer wieder benötigte Kontonummern ein¬ 
blenden. monatlich wiederkehrende Buchungen ausführen 
und vieles mehr. 

Nach dem Starten des Programms erscheint das Menü. 

Hier wird zuerst das aktuelle Datum eingegeben, das in einen 
String eingelesen wird (Eingabe zum Beispiel: 05.02.90). 
Danach können Sie einen der zehn Menüpunkte anwählen, 
von denen einige durch eine Markierung neben der Bezeich¬ 
nung besonders gekennzeichnet sind. 

Das sind die Punkte, die vom Programmablauf her logisch 
erscheinen. So wird zum Beispiel nach einer Änderung in der 
Datei “SPEICHERN“ markiert und erst nach dem Speichern 
“ENDE“. 

Jetzt zu den einzelnen Punkten: 

1. Konto 1 

Wenn Sie diesen Menüpunkt das erste Mal anwählen, müs¬ 
sen Sie zuerst den Kontostand eingeben, den Ihr Konto vor 
der ersten Buchung hat, also den alten Kontostand auf Ihrem 
Auszug. Danach geben Sie noch die Kontonummer und den 
Namen des Inhabers ein. 

Jetzt erscheint das Arbcitsblatt zu Konto I. Die Funktionen 
werden alle noch erklärt. 

1. Konto 2 

Genau wie bei Konto 1. 

3. Speichern 

Die Datei wird mit variabler Länge abgespeichert, das heißt, 
je mehr Buchungen Sie ausgeführt haben, desto länger die 
Datei. 

Wenn Sie bei leerem Speicher aus Versehen SPEICHERN 
statt LADEN anwählcn, führt das Programm zurück ins 
Menü, damit keine Leerdatei abgespeichert wird. 

4. Laden 

Auch hier gibt es eine Sicherheitsabfrage: Wenn Sie etwas an 
der Datei geändert haben, werden Sie darauf hingewiesen, 
daß sie noch nicht gespeichert wurde. 
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5. Drucken 

Nach der Angabe, zu welchem Konto Sie einen Auszug 
drucken wollen, werden alle Buchungen des entsprechenden 
Kontos in tabellarischer Form auf dem Drucker ausgegeben. 

6. Katalog 

Entspricht dem Befehl CAT. 

7. Daueraufträge 

Hier haben Sie die Möglichkeit, immer wiederkehrende Bu¬ 
chungen einzugeben, die Sie dann ganz einfach abrufen 
können. 

Zuerst geben Sie bitte ein, ob die Buchung bei Konto 1 oder 2 
ausgeführt werden soll, danach, ob am Anfang oder in der 
Mitte des Monats. Jetzt befinden Sie sich in einem Unterme¬ 
nü. Die Liste der bisher vorhandenen Buchungen und die Ge¬ 
samtsumme der Belastung wird ausgegeben. Dann werden 
Sie gefragt, ob Sie eingeben, löschen oder zurück ins Haupt¬ 
menü wollen. 

Bei einer Eingabe geben Sie zuerst das Kürzel für die Art der 
Buchung ein (zum Beispiel: DA für Dauerauftrag, LS für 
La,stschrift und so weiter), dann den Text und danach die 
Summe, die abgebucht wird. 

Wie immer bei einer Eingabe wird durch eine Linie die maxi¬ 
male Länge des Textes angezeigt und bei einer Überschrei¬ 
tung der Fehler abgefangen. 

Danach wird die Liste ergänzt und die neue Gesamtsumme 
angezeigt. Beim Löschen brauchen Sie nur die Listennum¬ 
mer der Buchung anzugeben, sie wird dann entfernt. 

8. Kontonummern 

Hier können bis zu 18 Kontonummem mit Name des Inha¬ 
bers, Bank und so weiter angezeigt werden, so daß man beim 
Ausfüllen von Überweisungen die wichtigsten Kontonum¬ 
mern immer zur Hand hat. 

Jeweils sechs Konten werden gleichzeitig dargestellt; nach 
einem Tastendruck wird weitergcblättert beziehungsweise 
zurück ins Menü gesprungen. 

Diese Daten werden bei Menüpunkt 9 eingegeben. 

9. Konto-Nr. Eing. 

Mit diesem Menüpunkt werden die Daten eingegeben, die 
man mit Punkt 8 (Kontonummern) aufrufen kann. 
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Zuerst wird die Art des Kontos eingegeben (zum Beispiel 
Giro-Konto, Sparbuch). Wenn Sie hier nur mit ENTER quit¬ 
tieren. werden Sie zurück ins Hauptmenü geführt. 

Danach werden der Name des Inhabers, die Kontonummer, 
Name der Bank und die Bankleitzahl eingegeben. 

0. Ende 

Das Programm wird nach einer Sicherheitsabfrage beendet 
und der Rechner zurückgesetzt. 

Sie können das Programm auch jederzeit mit ESC unterbre¬ 
chen, durch gleichzeitiges Drücken von CTRL und der klei¬ 
nen ENTER-Taste kommen Sie ohne Datenverlust zurück 
ins Hauptmenü. 


4. Verwendung: (besteht aus drei Teilen): 

a) Ein Kurzzeichen für die Buchungsart (z.B. LS für Last¬ 
schrift, SCH für Scheck, DA für Dauerauftrag...) 

b) Bei Schecks werden hier die letzten drei Stellen der 
Schecknummer eingetragen. 

c) der Text für den Verwendungszweck 

5. Soll: Bei Abbuchungen wird hier der Betrag angezeigt. 

6. Haben: Bei Gutschriften steht hier der Betrag. 

7. Saldo; Nach jeder Buchung wird der Kontostand berech¬ 
net und angezeigt. 

In den unteren drei Zeilen ist die Menüleiste mit den mögli¬ 
chen Eingaben. 


Arbeitsblatt 

Wählen Sie Konto 1 oder 2 aus. 

Jetzt haben Sie das Arbeitsblatt vor sich, auf dem bis zu 15 
Buchungen dargestellt werden. Insgesamt .stehen Ihnen vier 
Seiten zur Verfügung, also 60 Buchungen. 

Das Blatt ist aufgeteilt in mehrere Spalten: 

1. Nr: Hier steht die laufende Nummer der Buchung. 

2. R; Wenn einen Buchung auf dem Kontoauszug steht, wird 
sie in dieser Spalte mit einem Haken als “registriert“ ge¬ 
kennzeichnet. 

3. Datum: Hier steht das Buchungsdatum. 


N = Nummern: 

Mit dieser Funktion werden die Angaben zu den Konten ein¬ 
geblendet, genau wie im Hauptmenü unter Punkt 8. So kön¬ 
nen Sie sich jederzeit, zum Beispiel beim Ausfüllen einer 
Überweisung, die benötigten Daten für bis zu 18 verschiede¬ 
nen Konten anschauen. Sechs Konten werden immer gleich¬ 
zeitig angezeigt, mit einem Tastendruck können Sie weiter¬ 
blättern, und nach der letzten Angabe gelangen Sie zurück in 
das Arbeitsblatt. 

R = Registrieren: 

Wenn Sie zum Beispiel einen Scheck ausgestellt haben, so 
wird er einige Tage später bei der Bank eingelöst und auf 


X-Laufwerk für CPC 464/664/6128 

Das X-Lsufw9rk isl ein Sysiemtaufwerk. das anstelle eines S'-Zweiilaufwerke am CPC 664/8128 
mit eingebautem oder am CPC 464 mit zusätzlichem S’.Controller betrieben wird. Das X-DOOS- 
Betriebssystem wird zusammen mit einer EPROM-Karte an den CPC anaeachlossen 7f6 K nutz¬ 
bare Kapazität unter BASIC, CP/M 2.2 und CP/M Plus. 

- Die RAU-Belegung von X-ODOS ist nahezu 100% kompatibel zu AMSDOS. 

- Ea kann sottwaremäSig zwischen X-ODOS und AMSDOS umgesehatlet vrerdon. 

- Es werden Anpassungsprogramme für CP/M 2.2 und CP/M Plus mitgeliefert. 

- Oie CP/M Plus Anpassung isl auch aul einem CPC 464/664 mit 64K RAM-Erw. lautfähig. 

- Oie 224-KByte EPROM-Karte hat bei Inslalliertem X-OOOS noch eine Restkapaziläl von 
208 KByte. 

- Damit X-DDOS auch in beliebigen anderen EPROM-Karten lauffähig ist. wurde völlig aul 
einen Kopierschutz verzichtet. 

- Als LOW-COST-L6sung berm CPC 464 kann das X-DDOS-EPROM auch einzeln bezogen 
und direkt gegen das AMSDOS-ROM ausgetauschi werden. 

X-DDOS-EPROM, Software & Beschreibung gg,- dm 

224-K8yle EPROM-Karte, X-ODOS, Software & Beschreibung 239,- DM 

5.25’ oder 3.S* X-Laulwerk, 224-KByte EPROM-Karte. X-DDOS. Sottw. & Beschr. 539,- DM 
&2$' oder 35* X-Laulwerk, RAM-Erw. ohne RAMs, X-OOOS, Softw. S Beschr, 539, - DM 


Festplatte HD20 für CPC 464/664/6128 

- Festplatte 20 MByte (3,5* Seagate, NEC, Kyocera oder Mlniscnbe) 

- Interface mit durchgeführlem Expanslonsport, Buspufferung und EPROM-Sockel zur 
Aufnahme des erweiterlen X-DOOS 2.10 Betriebssystems 

(ROM-Nummer im Bereich von 1-7 frei wählbar) 

- 4 Partitionen ä 5152 kßyte (als Laufwerke 'D;' bis ’G:’ ansprechbar) 

- 512 Diredory-Eifliräge / Partition 

- CP/M Plus Einbindung und CP/M 2,2 Einbindung mit 63k TPA 

- 63k CP/M 2.2 und CP/M Plus erfordern 128k RAM 

(CPC 464/664 mit mindestens &4k RAM-Erwelterung oder CPC 6128) 

- Cp/M 2.2 Elnbindur^ mit 43k TPA (auch ohna RAM-Erwelterung) 

- Softwareuhr und TIMEROM 4 . Einbindung (Echtzeiluhr unter CP/M Plus) 

- hohe Kompatibililäl zu allen gängigen Hard- und Soflwareprodukton (z.B. D08BERTIN oder 
dk’tronics RAM-Erweiterung, EPROM-Karte, Eprom-Software wie HDOS, MAXAM, PROTEXT, 
PROMERGE...) 

- Umschaltsn auf AMSDOS m^lich 

- sehr hohe Zugriffsgeschwlndlgkeii (mit RAM-Oisc vergleichbar] 

20 MByte Harddisk inkl. Controller, Netzteil, Gehäuse. Interface-Karle mit X-DDOS 2.10 Software 
und Beschreibung auf Diskette Inkl. aller notwendigen AnschluB-Kabel OM 110O.- 


Btx Softwaredekorder für CPC ohne FTZ-Zulassung 

Hard- und Soflwarevorraussetzungen: 

- CPC 6128 Oder CPC 464/664 mit mindestens 64k RAM-Erweiterung & CP/M Plus 

- serielle Schniltstelle (Schneider oder Amslrad) 

- 1200 Baud Modem (HAYES kompatibel) 

Btx Sollwaredekoder Inkl. Beschreibung aul 3*-Diskette' OM 99,- 


S^-Disketten Maxell CF2 10 Stück dm s 9 .- 


DOBBERTin 


Indusirie-Elakironik GmbH 
BrahmsstraBe 9.6835 Brühl 
Telolon062 02 / 71417 
Telefax 062 02 / 7 55 09 


Public-Domain für Amstrad CPC und Joyce 

Sagenhaft preiswerte Software für Amstrad CPC und Joyce mit Handbuch in 
deutscher Sprache - so machen diese tollen Programme richtig Spaß! 


1- JRT-Pascal - vollständiges Pascal mit 64K-S(rings, Overlays ... * 

2- ZSO-Assembterpaket mit Assembler, Disassembler, Linker und Debugger 

3- Künstliche Intelligenz - Interpreter für XLISP und E-PROLOG * 

4* C-Compiler Small*C - mit Fließkommazahten und großen Bibliotheken • 

5- FORTH-83 - mit Assembler, Decompiler, Scrcen-Editor 

6- CP/M-UliUlics wie Dateikompressor. Diskmontlor, UNERA-Dateircttcr 
7' Alle Programme aus dem Großen CPC-Arbeitsbuch (nur CPC) 

8- Advcnlure Coiossal Cave (Programm englisch, Anleitung deutsch) • 

9- CPC-Disk Utilities - kopiert geschützte Software (nur CPC) 

10- RizBasic • CPC-Basic-Erwcitcrung (relative Datciverwaltung etc.) 

11- Basic-CompUer E-B/^IC • CBASlC-kompalibel, viele Befehle 

12- Turbo Pascal-Programme ■ INLIbfE-Generator. GSX- & CPC-ROM-Grafik 

13- Alle Programme aus dem Buch Den Joyce programmieren 

14- Alle Programme aus dem Buch CPC-Dateiverwallung (nur CPC) 

15- WordStar-Utilities - Fußnoten, Stichwort, Mchrspaltcndruck * 

16- dBASE-Literaturverwaltung - Bringen Sic Ihre Buchsamralung in Ordnung • 

17- C-lntcrprclCT SCI - Erlernen Sie spielend die Sprache C * 

18- MacroPack/ZßO - Z80-Makroasscmbler, Spitzcn-Dcbugger und Linker 

19- MEX-Kommunikatlonsprogramm - Datenübertragung mit dem Computer • 

* auf dem CPC-464/664 nur mit Spcichererweitcrung (64K genügen). 


Der Preis? Sage und schreibe nur DM 30,- pro Diskette inklusive Porto und Ver¬ 
packung. Oder bestellen Sic drei beliebige Disketten für nur UM 70,-! 

Bitte geben Sic das gewünschte Disketlenformat (3 Zoll oder Vortex-Disketten) 
an. Lieferung per Nachnahme oder Vorauskassc, ins Ausland nur per Voraus- 
kassc. 

MARTIN KOTULLA 

Kronacher Straße 7,8500 Nürnberg 90, Telefon 0911/30 49 44 
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dem Kontoauszug aufgeführl. Jetzt ist der Scheck registriert, 
und Sie können in “abhaken“. Nach der Eingabe von “R“ 
werden Sie gefragt, in welcher Zeile die Buchung steht. Ge¬ 
ben Sie einfach die laufende Nummer ein, die vor der Bu¬ 
chung angezeigt wird, dann erscheint in der zweiten Spalte 
ein Haken. 

E = Eingeben 

Dieses ist natürlich der wichtigste Menüpunkt: die Eingabe 
der Buchungen. 

Als erstes wird die Zeilennummcr ausgegeben, und Sic wer¬ 
den gefragt, ob die Buchung schon registriert ist. Wenn Sie 
den Kontoauszug haben, auf dem die Buchung steht, geben 
Sie “J“ für ja ein, sonst “N“ für nein. 

Als nächstes wird nach dem Datum gefragt. Wenn Sie nur 
ENTER drücken, wird das aktuelle Tagesdalum übernom¬ 
men, das auch oben rechts eingeblcndel ist. Die nächste Ein¬ 
gabe betrifft die Buchungsart. Bitte geben Sie ein bis zu drei 
Steilen langes Kürzel ein, zum Beispiel DA für Dauerauf¬ 
trag. LS für Lastschrift, EC für Euroscheck, SCH für Scheck 
und so weiter. 

Nur wenn Sic EC für Euroscheck oder SCH für Scheck ein¬ 
gegeben haben, werden Sie jetzt nach den letzten drei Stellen 
der Schecknummer gefragt, ansonsten wird dieses Feld über¬ 
sprungen. 

Als nächstes werden Sie nach der Verwendung gefragt, ge¬ 
ben Sie bitte den Text zu der Buchung ein. 

Wenn Sie als Verwendungszweck “Umbuchung“ eingeben, 
wird die Summe, die Sie hier abbuchen, automatisch dem an¬ 
deren Konto gutgeschrieben. 

Jetzt werden Sie nach der Summe der Abbuchung gefragt. 
Wenn es sich bei dieser Buchung um eine Gutschrift handelt, 
drücken Sie nur ENTER, sonst geben Sie den Betrag ein. 
Wenn Sie nur ENTER gedrückt haben, erfolgt jetzt die Frage 
nach der Summe der Gutschrift. 

Danach wird der Kontostand errechnet und angezeigt. Falls 
Sie den Menüpunkt “Eingeben“ anwählen und sich auf der 
falschen Seite der Anzeige befinden, wird vom Programm 
die richtige Seite angewählt. Sie müssen dann noch einmal 
“Eingeben“ wählen. 

Das kommt zum Beispiel vor, wenn Sie sich die Buchungen 1 
bis 15 anzeigen lassen, die neue Eingabe aber die laufende 
Nummer 16 hat. Außerdem werden Sie daraufhingewiesen, 
daß Sie erst einige Buchungen löschen müssen, wenn Sie eine 
Eingabe machen wollen, obwohl alle 60 Buchungen bereits 
durchgeführt sind. 

L = Löschen 

Wenn alle 60 Buchungsplätze besetzt sind, müssen Sie mit 
“Löschen“ wieder Platz schaffen für neue Buchungsvor¬ 
gänge. 

Die ersten Buchungen liegen meistens schon zwei bis drei 
Monate zurück und können jetzt entfernt werden. 

Nach dem Anwühlen von “Löschen“ werden Sie gefragt, wie 
viele Zeilen Sie löschen wollen. Sie haben jetzt zwei Mög¬ 
lichkeiten: 

1. Sie können eine Zahl zwischen eins und neun cingeben, 
die entsprechenden Zeilen werden gelöscht, und die restli¬ 
chen Buchungen rücken auf. 

2. Wenn Sie eine Null eingeben, können Sie eine Buchung 
rückgängig machen, wenn Sie zum Beispiel einen falschen 


Betrag eingegeben oder eine Buchung versehentlich zweimal 
ausgeführt haben. 

Sie werden dann nach der laufenden Nummer der Buchung 
gefragt. Geben Sie die entsprechende Zeile an, sie wird ge¬ 
löscht, und die nachfolgenden Kontostände werden neu be¬ 
rechnet. 

I) = Daueraufträge 

Damit können Sie Abbuchungen vornehmen, die immer wie¬ 
der kommen: Miete, Strom und so weiter. 

Eingegeben werden diese Buchungen vom Hauptmenü aus 
(7:Daueraufträge), sie werden hier ausgeführt. 

Buchungen am Monatsanfang müssen immer auf den Ersten 
des Monats datiert werden (zum Beispiel: 01.07.89), in der 
Monatsmitte auf den 15. Das ist wichtig, weil das Programm 
die entsprechenden Buchungen nach den ersten zwei Zahlen 
des Datums aussucht. Sic müssen also am Ersten immer 
“01eingeben. 

Nach dem Anwählen des Menüpunktes müssen Sie also nur 
das Datum eingeben. Sie brauchen auch nicht auf die freien 
Zeilen zu achten, das Programm löscht so viele Zeilen, wie 
benötigt werden, um alle Buchungen auszuführen. 

ENTER = Konto 1/2 

Durch einfachen Druck auf ENTER können Sie das jeweils 
andere Konto anwählen. 

K = Kontrolle 

Zur Kontolle errechnet das Programm den Kontostand, der 
entsteht, wenn nur die Buchungen berücksichtigt werden, die 
abgehakt sind. 

Der Betrag muß dann mit dem auf dem Kontoauszug der 
Bank übereinstimmen, wenn alle darauf stehenden Buchun¬ 
gen registriert sind. 

M = Menü 

Rücksprung zum Hauptmenü. 1,2,3,4 = Blättern 
Damit kann jedes der vier Arbeitsblälter angewählt werden. 
Das Programm springt von sich aus immer zu dem mit der 
letzten Buchung. 


Kassettenbenutzer aufgepaßt: 

Kassetten-Bcnulzer müssen die Zeilen 210 und 230 weg¬ 
lassen und folgende Zeilen einfügen: 

1422 LOCATE 5,21:PRINT‘'Bitte Datenkassette einlegen 
und“:LOCÄTE 5,23:PRINT“zurückspulen, dann TASTE 
drücken. “:CALL &BB18 

1424 CLS^l.-LOCATE 1 i,21 :PRlNT“Bitte REC und 
PLAY. “.LOCATE 11,23:PRINT“dann TASTE drücken. 
CALL&BBJ8:CLS#1 

1852 LOCATE 5,21:PRINT“Bitte Datenkassette einlegen 
imd“:LOCATE 5,23:PRlNT“zurückspulen, dann TASTE 
drücken. “:CALL &BB18 

1854 CLS#J:LOCATE 15,21 :PRINT“Bitte PLAY,“:LO- 
CATE 11.23.-PRINT“ dann TASTE drücken.“:CALL 
&BB18:CLS#1 


(Jürgen Gropp/rs) 
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Versura 

Strategie wird groß geschrieben 


Versura ist ein etwas anderes Würfelspiel, das auf einem Damebrett mit ie 
vier Figuren für Jeden der zwei Teilnehmer gespielt wird. 

Wahlweise kann gegen den Computer oder gegen einen anderen Spieler ’ge- 
kämpft’ werden, wobei cs hier darum geht - wie sollte es anders sein - 
den Gegner vom Spielfeld zu vertreiben. 


Jeweils vier Figuren stehen in zwei ge¬ 
genüberliegenden Ecken des Spielbret¬ 
tes. Jeder der beteiligten Spieler hat 
nun die Aufgabe, die gegnerischen 
Steine vom Spielfeld zu werfen. Doch 
bevor es soweit ist, wird erst einmal 
per Zufall bestimmt, wer den ersten 
Zug ausführen kann. 

Derjenige, auf den das Los gefallen ist, 
gibt nun als erster den Schwung ein, 
mit dem er den Würfel werfen möchte. 
Hierbei sind die Zahlen eins bis neun 
erlaubt, wobei gilt, daß eine höhere 
Zahl auch einen größeren Schwung mit 
sich bringt. 

Nun geben Sie die Koordinaten des 
Steines, den Sic bewegen wollen sowie 
die Koordinaten des Feldes ein, wohin 
er versetzt werden soll. 

Letzteres ist natürlich davon abhängig, 
weiche Augenzahl der Würfel anzeigt. 
Das Schwierige daran ist, daß Sie hier¬ 
bei mit Ihrer Figur das Spielfeld nicht 
verlassen dürfen. 

Sie müssen sich also genau überlegen, 
in welche Richtung Sie den Stein zie¬ 
hen wollen. Damit es jedoch nicht ganz 
,so schwierig ist, können Sie während 
des Zuges einmal die Richtung ändern. 


Sie können also bei einer gewürfelten 
sechs nicht zwei Felder hoch, zwei Fel¬ 
der rechts und zwei Felder nach unten 
ziehen. 

Auch das Überspringen von anderen 
Figuren ist bei diesem Spiel nicht er¬ 
laubt. 

Von Ihnen verursachte Fehler werden 
vom Computer abgefangen und Sie 
werden dazu aufgefordert, Ihre Anga¬ 
ben zu ändern. 

Wer mit den Farben, wie sie direkt 
nach dem Programmstart eingestellt 
sind, nicht einverstanden ist, kann die¬ 
se auch ändern. 

Mit den Pfeiltasten rechts/links kann 
nun der gewünschte ’PEN’ (von null 
bis vier) eingestellt werden. 

Mit hoch/runter wird dann zu diesem 
’PEN’ die gewünschte INK-Farbe ge¬ 
wählt. 

Als Voreinstellung wurden hier die 
Werte 0, 26, 6 und 2 für die 'Stifte’ null 
bis drei verwendet. 

Mit der ENTER- beziehungsweise der 
RETURN-Taste beenden Sie nun die 
Farbeinstellung, und das Spiel kann be¬ 
ginnen. 

(Ralf Brostedt/rs) 


Diskettenlaufwerke 


• AnschluRfertig t Sie brau¬ 
chen wirklich nichts mehr. 

• Qualitätslaufwerke von TEAC 

• 2*80 Spuren, 1 MegaByte un¬ 
formatierte Speicherkapazität 

• 1 Jahr Garantie 1 


JOYCE 

3 . 5 '' 249 .- 

5 . 25 " 328 .- 


I Alle Diskettenlaufwerke sind ohne tech- 
1 nische Kentnisse leicht als Zweitlaufwer¬ 
ke an Ihren JOYCE anzuschließen. Sie 
funktionieren auch mit einer Speicherer¬ 
weiterung problemlos. Die Kapazität be¬ 
trägt 1 MB unformatiert und 726 KB 
formatiert. Die 5.25" Stationen verfügen 
. über ein eigenes Netzteil (VDE) und eine 
I 40/80 Track Umschaltung (notwendig für 
MsCopy). 

I Für den Betrieb mit unseren 5.25" Lauf¬ 
werken wurde das Programm MsCopy 
entwickelt. Es ermöglicht den Datenaus¬ 
tausch zwischen Ihrem JOYCE und ei¬ 
nem PC. Neu : Jetzt auch für 3.5" 

MsCopy 49.- 


CPC 

3 . 5 " 279 .- 

5 . 25 " 328 .- 


Zweitlaufwerke mit 830 KB formatierter 
Kapazität unter CP/M, 2 x 360 KB unter 
Amsdos bzw. BASIC. Alle Laufwerke 
werden serienmäßig mit einem Seiten¬ 
umschalter ausgerüstet, so daß beide 
Diskettenseiten genutzt werden können. 
Unter CP/M geschieht die Umschaltung 
automatisch, Im Lieferumfang sind die 
Programme DiskPara und MsCopy 
enthalten. 

DiskPara 

für alle CPC’s 79.- 

Programm zur Erhöhung der Disketten- 
kapazrtät. Ermöglicht je nach Laufwerk¬ 
styp Kapazitäten bis 830 KB unter CP/M. 
Vollkompatlbel läuft z.B. mit: 

Turbo Pascal, DBase und Wordstar. 
Erfolgreich getestet in Schneider Aktiv 
5/87, c’t 5/87, PC Int. 6/87, CPC 4/87, 
Happy Comp. 4/87. M&T Sonderheft 

Frank Strauß Elektronik 

Schmiedstr. 11 6750 Kaiserslautern 

Tel.: 0631 / 67096-98 Fax : 60697 
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Der Text wurde der Übersichtlichkeit 
halber in drei Kapitel unterteilt. Dabei 
wurde möglichst genau auf die Reihen¬ 
folge der zu tätigenden Schritte geach¬ 
tet. Sollte dies einmal nicht eingehalten 
werden, sind dem Text Hinweise zu 
entnehmen. 

I. Erstellen von 
SCHALTPLANER: 

1. Basicladerl abtippen und mit 
’SAVE“PLANER1.BAS“’ abspei¬ 
chern. 

2. Basiclader2 abtippen und mit 
’SAVE‘*PLANER2.BAS“’ abspei¬ 
chern. 

3. Basicprogramml abtippen und mit 
'SAVE“PLANER.BAS“' abspei¬ 
chern. 

4. Computer zurücksetzen und nun 
’RUN'PLANERl .BAS“’ eingeben. 

5. PLANER 1 wird eingepokt und dann 
auf Tastendruck gewartet. Anschlie¬ 
ßend wird PLANER2 automatisch 
nachgeladen und ebenfalls einge¬ 
pokt. 

6. Durch erneuten Tastendruck wird 
das Programm unter dem Namen 
'PLANER.BIN' abgespeichert. 

7. Das Programm kann nun mit 
■RUN“ PLANER. BAS “' gestartet 
werden. 

Hinweise: 

- PLANER] und PLANER2 sollten 
nach dem Abtippen zuerst gestartet 
und sämtliche Fehler beseitigt wer¬ 
den. Erst dann abspeichern, wie un¬ 
ter l. und 2. beschrieben. 

- Es wird empfohlen, nach dem ersten 
Start die bereits definierten Bauteile 
wie unter 3.d) beschrieben abzu¬ 
speichern, da diese sicher häufiger 
benutzt werden. 

II. Allgemeines über 

SCHALTPLANER 

Nach erfolgreichem Laden wird das 
Arbeitsfeld aufgebaut: 

- Am oberen Ende des Bildschirms 
befindet sich die'Menüleiste mit 
sämtlichen zur Verfügung stehenden 
Pulldown-Menüs. 

- Der Zeiger befindet sich nach dem 
Starten links unterhalb der Menülei¬ 
ste. Mit den Cursortasten können 
Sie ihn über das komplette Arbeits¬ 
feld bewegen. 

Der Buchstabe rechts in der Menü¬ 
leiste zeigt an, ob Sie mit dem Zei¬ 


ger augenblicklich zeichnen oder 
laufen: 

L = Laufen 
Z = Zeichnen 

Mit <COPY> können Sie von 
Zeichnen nach Laufen wechseln und 
umgekehrt. 

1. Bauteile anwählen: 
SCHALTPLANER verfügt bereits 
über die wichtigsten Bauteile, die in ei¬ 
ner Schaltung verwendet werden. In ei¬ 
nem späteren Abschnitt erfahren Sie, 
wie Sie selbst mit SCHALTPLANER 
Bauteile definieren können. 

Durch Drücken von <SPACE> wird 
auf dem Arbeitsfeld ein Fenster einge¬ 
blendet und in der linken oberen Ecke 
erscheint der Zeiger. 

Ein Bauteil können Sie anwählen, in¬ 
dem Sie es mit dem Zeiger ansteuern 
und anschließend <COPY> drücken. 
Dann wird das Fenster gelöscht und 
statt dem Zeiger kann nun das Bauteil 
an die entsprechende Stelle im Arbeits¬ 
feld gesteuert und mit <COPY> dort 
abgelegt werden. 

Die Bauteile werden nicht transparent 
auf die Arbeitsfläche gelegt. Dadurch 
ist es möglich. Widerstände etc. ohne 
Auftrennen der Leitung einzufügen. 
Das Bauteilefensler kann mit 
< BREAK > gelö.scht werden oder in¬ 
dem Sie einfach den Zeiger aus dem 
Arbeitsfeld herausbewegen. 

2. Drehen von Bauteilen: 

Haben Sie ein Bauteil angewählt, kön¬ 
nen Sie es mit < SPACE > drehen, wie 
Sie es in Ihrem Schaltbild benötigen. 
Wird das Bauteil viermal gedreht, ist es 
wieder in der ursprünglichen Lage. 
Das Drehen ist nur dann möglich, 
wenn Sie das Bauteil bewegen können. 
Haben Sie es mit < COPY > abgelegt, 
ist ein Drehen nicht mehr möglich. 

3. Linien zeichnen: 

Um eine Linie zu zeichnen, müssen Sie 
den Zeiger entsprechend positionieren 
und den Anfang durch <CTRL-L> 
markieren. 

Bei erfolgreicher Durchführung er¬ 
scheint rechts in der Menüleiste ein 
’M’, und der Anfang der Linie wird 
durch ein Abbild des Zeigers markiert. 
Das Ende der Linie wird entsprechend 
angesteuert. Nach dem Drücken von 
<CTRL- L> wird die Linie gezogen, 
und die Markierungen verschwinden 
wieder. 

Diese Option ist vor allem zum Zeich¬ 
nen von Operationsverstärkern 
wichtig. 
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4. Beschriften: 

Wollen Sie Bauteile beschriften oder 
Texte auf das Arbeitsfeld schreiben, so 
brauchen Sie nur den Zeiger an die ent¬ 
sprechende Stelle zu positionieren und 
den Text über die Tastatur einzugeben. 
Folgende Punkte sollten Sie allerdings 
dabei beachten: 

— Mit <DEL> kann das letzte Zei¬ 
chen wieder gelöscht werden. Der 
alte Hintergrund wird jedoch nur 
dann wieder hergestellt, wenn der 
Zeiger nach dein Schreiben nicht mit 
den Cursortasten bewegt wurde; an¬ 
sonsten wird das Zeichen einfach 
gelöscht. 

— Erreichen Sie das Ende einer Zeile, 
wird automatisch an den Anfang der 
nächsten Zeile gesprungen. Auch 
hier funktioniert die <DEL>- 
Taste. 

- Das Drücken von < SPACE > wird 
als Leerzeichen interpretiert, wenn 
die zuletzt gedrückte Taste ein Text 
war. Andernfalls gelangen Sie durch 
<SPACE> in das Bauteilemenü. 

- Neben dem Alphabet können noch 
+ -/*,. betätigt werden. 

5. Knotenpunkte setzen: 

Knotenpunkte können durch Betätigen 
von <CTRL-K> an die augenblickli¬ 
che Zeigerposition gesetzt werden. 

III. Pulldown-Mcnüs: 

Möchten Sie ein Pulldown-Menü an- 
wählen, .so müssen Sie zuerst in den 
Laufen-Modus. 

SCHALTPLANER besitzt fünf Pull- 
down-Menüs mit den Titeln ZEICH¬ 
NEN. GENERATOR, EXTERN, 
HARDCOPY, BEENDEN. 


Abh. J: Allesauf ei¬ 
nen Blick, eine üher- 
sicbrliche Menüfüh¬ 
rung erleichtert das 
Arbeiten 


Um ein Pulldown-Menü anzuwählen, 
müssen Sie nur mit dem Zeiger den ent¬ 
sprechenden Titel ansteuern, und das 
Menü wird eingeblendet. 

Eine Funktion des Menüs wird durch 
Ansteuern mit dem Zeiger und an¬ 
schließendes Betätigen von <COPY> 
angeklickt. Das Fenster verschwindet, 
und die Funktion wird ausgeführi. 

Wollen Sic keine Funktion des geöffne¬ 
ten Pulldown-Menüs anwählen, so 
können Sie dieses durch Drücken von 
< BREAK > verlassen oder indem Sie 
den Zeiger aus dem Fenster heraus¬ 
steuern. 

1. ZEICHNEN: 

Beim Öffnen des Pulldown-Menüs 
ZEICHNEN erscheint ein Fenster mit 
den vier Begriffen VERSCHIEBEN. 
KOPIEREN, LOESCHEN, HOLEN. 


a) VERSCHIEBEN, KOPIEREN, 
LOESCHEN 

Im Pulldown-Menü ist eine Verände¬ 
rungsmöglichkeit invers dargestellt. 
Durch Ansieuern mit dem Zeiger und 
anschließenden Drücken von <CO- 
PY > können Sie eine andere Möglich¬ 
keit an wählen. Wenn Sie das gemacht 
haben, passiert erst einmal nichts, denn 
nun müssen Sie noch den zu ändernden 
Bildschirmteil markieren. 

SCHALTPLANER stellt dazu ein 
Hilfsmittel, den sogenannten Kasten, 
zur Verfügung. 

Um einen Bildschirmteil zu markieren, 
müssen Sie folgendermaßen Vorgehen: 

— Einen Eckpunkt des Ausschnittes 
ansteuern und durch < ENTER > 
markieren. 

— der Punkt wird durch ein Abbild Ih¬ 
res Zeigers gekennzeichnet, und Sie 


können mit Ihrem Zeiger den gegen¬ 
überliegenden Eckpunkt ebenso 
markieren. 

Haben Sie LOESCHEN ausgewählt, 
wird der gekennzeichnete Teil sofort, 
nachdem Sie < ENTER > drücken, 
gelöscht, und Sie können wieder Wei¬ 
terarbeiten. 

Bei VERSCHIEBEN oder KOPIEREN 
müssen Sie nach dem Drücken von 

< ENTER > mit den Cursortasten den 
Kasten an die Stelle bewegen, wohin 
der Bildschirmteil kopiert oder ver¬ 
schoben werden soll, und nochmals die 

< ENTER>-Taste drücken; die Funk¬ 
tion wird ebenfalls sofort ausgeführt. 

b) HOLEN: 

Diese Funktion ermöglicht Ihnen, die 
zuletzt ausgeführte Aktion rückgängig 
zu machen. Zu beachten ist, daß das 
Zeichnen mittels der Cursortasten 
nicht rückgängig zu machen ist. 

2. GENERATOR: 

Dieses Menü beinhaltet drei Funktio¬ 
nen: AENDERN. NEUES TEIL. 
FARBENWAHL. 

a) AENDERN. NEU: 
SCHALTPLANER beinhaltet einen 
kompletten Bauieilegenerator, der es 
Ihnen erlaubt, Zeichen zu definieren. 
Haben Sie AENDERN oder NEUES 
TEIL angewählt, wird das Bauteileme¬ 
nü eingeblendet, und Sie müssen das 
Bauteil, das Sie ändern oder neu defi¬ 
nieren wollen, mit dem Zeiger an- 
klickcn. 

Der einzige Unterschied zwischen 
AENDERN und NEUES TEIL besteht 
darin, daß beim zweiten das ausge¬ 
wählte Teil jetzt gelöscht wird, bei 
AENDERN hingegen nicht. 

Zu beachten ist. daß die beiden großen 
Bauteile (Trafo. Graetz-Schaltung) fest 
vordefiniert sind und nicht verändert 
werden können. 

Wenn Sie den Zeiger aus dem Bauteile¬ 
menü hcraussteuern. wird die Funktion 
abgebrochen. Haben Sie aber ein Bau¬ 
teil mit <COPY> ausgewählt, wird 
das Fenster gelöscht, und ein neues er¬ 
scheint. 

Links ist das gewählte Bauteil als 
24x12 Matrix vergrößert und darunter 
in Originalgröße dargestellt. 

Rechts ist das gleiche Bauteil abgebil- 
dct. nur um 90 Grad gedreht. 
Außerdem befindet sich in der linken 
oberen Ecke einer Matrix die von Ih¬ 
nen mit den Cursortasten zu steuernde 
Marke. 
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•VGA MMSD.2.680,- 

• N^AMMHO.8.460.- 

Aufpreis« (optional): 
wie bei 2066 


auf 5.25*-Dj8k..... 
auf 3,sr-0iek.. 

Star-DIVISION 
Sur WrIUr 5.0 
Laser Star 1.0..... 
Star Manager 2.0 
.Star Planer 2.0 


MMHD 


AMSTRAO FD2/4 3* 448,- 

3,5"-Laufwerk.240,- 

5.2S'-Laulwerk.320,- 

Abdackhauban: - 

MonkoreCPC.|e 34,80 

DMP-Dfucker.Je 24,80 

Roppy's.)e 18,80 

3"'Dlskatten (WStk): 


Aufpreis« (optional): 

• C(iiA-Monllor. 

• EGA-Monkor.I 

•2.-Lautw8rk. < 

PC 2086: 

•VGA MMSD.1.) 


Maxell CF2 


zurOck an Absender 8/90 

Interessiert an weiterem lnfo> 
material 7 Kostenlose Gesamt 
angebotslisten anfordern I 

O fürCPC6128, 664, 464 
O Mr Joyca 

O für PC (IBM-KompaiiWe) 


KartHsinz Waask« • Potsdamer Ring 10 • 
71S0 Backnang < Kreissparkasse BK • 

BLZ (60250020) 74397 • PostgiroStungart. 
83326-707 

FAX: 07191(60077) 8/90 


CF2 DD.. 

DIakattanboxan: 

T/40 ... 


Erwaftarungsbox für 
Schnaidar EuroPC: 

Der Erweiterung Ihres Euro- 
PC'sslnd letzt keine 
Grenzen mehr gesetzt: 

7 freie Steckplatze. Platz fOr 
3 Laufwerke bzw. Fest¬ 
platten. 150 Wan-Netzlei... 

Grundversion — 698,** 
mit 5,25 ‘ Laufw 896,- 
mll 20 MB Fesipl. 1.398,- 
mit 5,25” u. 20 MB1.698,- 


5.257100 .24,80 

Saiialla Schnittstelle 

für CPC 6126 . 166 ,- 

f0r(y5C464 ._.t46.- 

org.engl. PACE.196,- 

Schattplina PC: 

...PC 1512/1640 ....29,80 
...Monitor M/C/EGA. 19,80 


conpuTER^EiEmom 

Zahlung per Nachnahme oder Vorauskasse. 
Versandkosienpauschale: lnland7800M 
(Ausland 19,80 DM) 

07191/1528-29 od.60076 

Reperaturwerkstait auch für Joyce / CPC 


Vorname. Name: 
StraSe. Hausnummer: 


PLZ, Ort: 
Telefon-Nummer: 


Spelcharerwaltarung: 

tOf Joyce.146,- 

Piplsrldnrung PCW Dr.... 30.- 


.1000 PDfS").ie 20.- 

,PO Kotulla. Hb.. je 30.- 


Dalum Unterschrift: 


dBase II 


CPC 6128 (3") 


DM 199,- 


1 Eaei-Art Supergraphic 

+ Trackerball. 

.296.- 



BTX-Modul CPC. 

248,- 

Mini Office 11S". 

»8.- 

Mini Office IlCass... 

■ 49,- 

Stop Press Util.. 

129,- 

Dart-Scanner'... 

249,- 

Turbo Pascal 3.0. 

.225,- 

Turbo Toolbox. 

.108,- 

Vokabeltrainer T . 

...49.- 

Verbentralner 3*. 

...49,- 

Schaltplina CPC 


CPC 464/664 )e.. 

.29,80 



1 CTM 644, 640.te 19,80 

QT 64/65 .|e 

19,80 

Kopiarprogramma: — 





dk'tronics CPC: 


für 464/664: 


Speech Synth. (Aom . 

148,- 

Speech Synth. (Kas.) 

..98,- 



256 k Erweiterung 

298,- 

256kSHicon Disk. 

298,- 

Uhrenmodul. 

128,- 

fQr 6128 : 


256 k Erweiterung'... 

298,- 

2S6kSINcon Disk*.... 

298,- 

64 k Silicon Disk*. 

128,- 

UhrenmoduK_ 

119,- 

AdaperMrCPC6l2S('f; 

.. 39,- 


CPC 


Ad¥anluras: 

Diamant von Rabenfels (g) 
Drachenland (i>- 
Relse durch die Zeit (t) 
SheriockHolmee (g) 

Auftrag in der Bronx (g) 

Insel der Smaragde (1) 

Das Pharaonengrab (t) 

(I - texi; g - Grafik; alte In 
deutsch) 

i« 3"/Kas. ...38,W28,- 

Kasse ffan-SoftHrara; 

Tasoopy KasJ 3*.39,- 

Tasword Kas. / 3*.69,- 

Tasprlnt Kas./3*.39,- 

Talfun Basic Comp.48,- 

Mini Office II Kas.49,- 

Vokabeltrainer Kas.39,- 

Verbentralner Kas.49,- 

KaseetUn-Solele: 

FutureworW.20,- 

Stud Poker...20,- 

Manic Miner.20,- 

Poker/17-U.20.- 

Flugslmulator.. 20 ,- 

Thorr1*2*3._|e 20 ,- 

Spiala-Sondarpralaa: 
Kassene / Disk... 20 ,- / 30,- 


Joyce 


Zubehör 


CPC 464 <3'7 •• 

DM 148,- 

DM 98,- 

DM 99.- 

DM 14«,- 

DM 298,- 

Joyce PCW 

DM 199,- 

DM 199,- 

DM 99,- 

DM 148.- 

DM 388,- 


'PaksLd&iM-f WadSur «MuKkilan • '*t)enMgt64K-Erw«iMrung* 


CPC 6128 + GT65 / CTM 644 . 

Schneider FOl I DD1 3" Diek-Luifwerk.-.—... 

M P2 (Anschluß von Farbfernseher an CPC).-. 

Joyce PCW 8256 (kompiett mit Drucker).... 

Dataphon 2400 Baud.. 

Dataphon 21 (300Baud).. 

Dataphon 21- 23 {i2ooBaud). 

Sotfware DFÜ 3" / Kabel Nullmodem. 


Amor: ^ 

Prowon.219,- 

Protextr.94,- 

Pfotext Eprom.124,- 

MAXAM T .94.- 

MAXAM Eprom.124,- 

MAXAM II.239,- 

Prospellengl.50,- 

Prospell dl8<^.70,- 

Van dar Zaim: ■ 

AORESCOMP.58,- 

DATENREM.66,- 

Fakturem.78,- 

FIBUPLAN._....148,- 

LAGOAT.68,- 

TEXTKING.78,- 

COMFORM.48,- 

ETATGRAF.58.- 

FIBÜCOMP.....98.- 

KALKUREM .78,- 

PROFIREM.136,- 

VOKABI.58,- 

STAR DIVISION: - 

Slar-Writer!.98,- 

Daiel-Star.98,- 

Stattstic-Star.„...98,- 

FlbuStar Plus CPC.. 298,- 

CPC-Knüllar: - 

ROMBOX CPC.118,- 

Vldeodlgillzer CPC . 348,- 

AMX-Maus CPC.278,- 

StopPressCPC.198,- 

St.Pr.*AMX-M.34«.- 

St.Pr. - UtilKios.129,- 


CyrusSDChess (Schachspiel) roisk. nur 

Handbücher fUr dBee«, Wordeter, Multlpian, MS Bealc nur 
LocoScriptClbungsdisketta3*0kK.. nur 


49.80 
49,00 

19.80 




Sorcery Plu«3”(SuperCPC-Spiei) ...nur 29,80 

Termlnal'Star 3” (Telekommunikation}. nur 29,80 

HISoft PASCAL 4T (Pascatsrogrammierung): 

Kassette / 3'-Diskette.nur 39,80 / 59,80 

HiSoft DEVPAC (Asserrtiler/Disassetnbler): 

Kassette / 3’-Diskette.nur 39,80 / 59,80 

SuperCalc2 3” (TdMiienkafkuiation) CPC/Joyce nur 59,80 / 59,80 

Easy-Topcalc (Kas.).nur 29,80 

Basic Lehrbuch 2 (Kas.).nur 29,80 


Kontenbiatter Fbu.35,90 

Looo-Merge.98,- 

Joyea-KnQUar 

AMX-Maus Joyce *.298,- 

BUdschlrmfilier Joyce ...59,- 

StopPress Joyce.196,- 

... * AMX Maus.398,- 

Desktop PiAllsher. 118 ,- 

... * AMX-Maus.348,- 

MasterScan •.....298,- 

MaaterPaint.78,- 

MasterScarV-PaJnt.338,- 

Mlnl Office Profess.138,- 


...Dlsch. Zeichensatz ...29,80 
BTX-Modul Joyce eb 598,- 
PapierfOhrung Joyce.... 39,- 


Schaltplan Joyce.29,80 

RS 232 Joyce.198,- 

MlniOOS.50,- 

Taswofd 8000.148,- 

Turbo Pascal 3.0 ....... 225,- 

Turtw Toolbox.148,- 

Pascal M+T.198,- 

Pfompt (Datei) .._..6«,- 

ProiTf)t Druck__39,- 

Vokabekrainer.49,- 

Verbentrainer.„....49,- 

Lemtrainer...49,- 

Turbo Adress.98,- 

Turbo Faktura.148,- 

Headline.198,- 

MICACAD.98,- 

Comac LHbox 4.0. 1 48,- 


Comac Kasse Plus .... 168 ,- 
Comac-Banklransfer.... 59,50 


Zubehör AMSTRAD • 
CPC: - 

MP2 (An«hl. TV) .148,- 

MP3 (TV-Modui«ta) ...199,- 

CT1 fa *flio.Uhri.89,- 

Daienrekorder« Kab. 98,- 
Druckerk. 6128/464.38,- 

Traklor NLQ401 .79,80 

Monitorverlängerung; 

...CPC 6126.29,80 

...CPC 464.24,50 

Bildschirmlllier PCW ..59,- 
Bildschlrmfllier CPC...49,-. 
Handbücher deutsch 

für CPC: 

...Mini Office II.29,80 

...AMX-Maus CPC ...29,80 
...StopPress CPC.... 19,80 

...dk'tronicsErw.19,80 

...Protext...18,80 

...MAXAM.19,80 

für Jovee: 

...AMX-Maus Joyce .19,80 

...Mini Office Prof.29,80 

...StopPress Joyce ..19,60 
...DesktopPubtisher 19,80 
Joysticks CPC 

Corrpetltlon pro.39,80 

Quickshol I._.... 14,80 

Ouickshot II.19,80 

Ouickshot IV.29,80 

Public Domain: - 


Software CPC; 


^MSTRAO-Hardware: 


VANDERZALM: 

ADRESCOMP. 

COMFORM.. 

.1.58,- 

DATENHEM.. 

ETATGRAF. 

FIBUPLAN. 

FIBUCOMP_ 

LAGDAT.. 

...68,- 

...58.- 

.148,- 

...98,- 

PROFIREM. 


VOKABI.. 


FAKTUREM.. 

KALKUREM . 

„.78,- 

„..Ta.- 

• 

LoooScript 2.. 

.148,- 

LocoMaH 1 . 

.128,- 



LocoSpel 2.„... 

.168,- 

LoooSapt. Spell.... 

.248,- 



LocoFont Set 1 . 

...79,80 

Loco Font Set 2. 

„68,40 

LocoScripi CRMngsdIsk 19JK) 

STAR DIVISION: 








Malling-System. 

.189,- 

Star-Base... 

.198.- 

Business-Star. 

■ 288.- , 

Fbu-Suv Plus. 

.298,- 


Vereinsverwatt. 
Schrelbiehrgang 
PSE2... 


Diskattanlaufwarka: 


...3000PD(5.25').Je 8,- 
...optional (3.5T ...... {e 12,- 

Druckan — 

DMP 3160 (9-N.).445,- 

Star LC10(d-N.).498,- 

AMSTRAD LQ3500..698,- 
StarLC24-10 (24-N.) 798,- 
Farbbindar: 

NLQ401/OMP.„19.80 

LQ 35VNL1(VPCW.24,80 

Joyce (Carbon).39,80 

PCW9512_ 19,80 

Star LC 1024 19.80/ 24,80 
Mini OOS Konveflierp. 48,00 
von CPM nach MS DOS. 


Wir haben den Alleinvertrieb für dBase II, Multiplan, 
Wordstar 3.0 und Microsoft Basic (CPC+Joyce) 
von Markt S Technik übernommen ! 

Sollten Sie also Interesse an einer durch und durch 
professionellen Software für Ihren CPC oder Joyce 
haben, dann zögern Sie keine Sekunde und wenden 
sich einfach an uns. 

F(kdBMe* MulipknCPC464/864istaine 64X-Erwiilmngnötig. 


Software Joyce 


Fleetstreel EdK. 

FISKUS 88/89. 

WS-Turw. 

Superoopy. 

Joyea^plala: — 

After Shock. 

Anais of Rome. 

Batman. 


Bridge Player. 

Cyrus 30 Schach... 
Football Fonunes... 
Jewels of Darkness 

Matchday II.. 

SSIcon Drearra. 

Steve Davis Snooker. 

Starglider... 

The Guild of Thleves.. 

Time and Magic. 

Tomahawk. 

dk'tronics Joyca: 
Echtzeftuhrennxxlul* 
256 k Erweiterung 
Adapter (*) 

Joyce-Katalog: ■ 
Genaue Produkt- 
Beschrebungen 


Radikale Preissenkung!! 


..79,- 

239,- 


129,- 

148,- 

39,- 


FDI 612e/464/664..198.- 
AnscNuGkabel FD1 ...48,-- 

3,S*-Laufwerk.240,- 

S.2S’-Laufwerk.320,- 


Arnor: 

PflOWORT. 

PROSPELL (dl.) 
MAXAM II.. 


Auftragabaarbaltung 

für PC: - 

Adreee • Lager • Faktura • 
Bücher • SchaRpIatlen • 
Zeltachilfien 


Preissenkung für AMSTRAD PC/AT: 


dBase-Kompalibel I 
Koirplett auf 7 Disketten mit 
disch. Handbuch II 























































































































































































































i~Programm 


Mit der <COPY>-Taste können Sie 
Punkte auf der Matrix setzen bezie¬ 
hungsweise gesetzte Punkte löschen. 
Eine Manipulation des Feldes ist ani 
darunter abgebildeten Bauteil direkt zu 
kontrollieren. 

Wird die < ENTER >-Taste gedrückt, 
so kann in die andere Matrix gewech¬ 
selt werden. Die Pfeile ober- und un¬ 
terhalb der Matrix geben an, wo Sie 
Anschlüsse herausführen können, da¬ 
mit sich die Bauteile später in die 
Schaltung einfügen lassen. Links und 
rechts können überall Anschlüsse her- 
ausgeführt werden. 

In der rechten Matrix muß das gleiche 
Bauteil nochmals definiert werden, 
aber um 90 Grad gedreht. Dies ist not¬ 
wendig, da bei der höchsten Grafikauf¬ 
lösung des Schneider CPC ein Bauteil 
24x12 Pixel groß ist und ein Drehen 
um 90 Grad eine Verschlechterung der 
Grafik-Auflösung um das Doppelte zur 
Folge hätte (12x12 Pixel bei gleicher 
Größe des Bauteils). 

Mit der <BREAK>-Taste kann der 
Generator wieder verlassen werden. 
Ferner wird das Fenster wieder ge¬ 
löscht und die Funktion beendet. 

Es ist zu beachten, daß die Bauteile un¬ 
bedingt abgespeichert werden müssen, 
wenn Sie diese nochmals benötigen 
sollten (wird in 3. beschrieben). 

b) Farben wähl: 

SCHALTPLANER erlaubt es, die 
Schreibfarbe und den Hintergrund Ih¬ 
ren eigenen Wünschen anzupassen. 
Nachdem Sie die Funktion angewählt 
haben, erscheint auf dem Arbeitsfeld 
ein neues Fenster. Mit den Cursorta¬ 
sten < links > und < rechts > können 
Sie nun die Farbe, welche invers ge¬ 
schrieben ist, einstellen. 

Mit der < ENTER >-Taste kann von 
der Schreibfarbe zum Hintergrund ge¬ 
wechselt werden und wieder zurück. 
Durch Drücken von < BREAK > wird 
das Fenster gelöscht und die Funktion 
beendet. 

3. EXTERN: 

Dieses Pulldown-Menü beinhaltet alle 
Funktionen, für die die Diskettensta¬ 
tion verwendet wird. Die Begriffe lau¬ 
ten: BILD LADEN, BILD SPEI¬ 
CHERN. CATALOG, BAUTEILE 
SPEICHERN, BAUTEILE LADEN. 

a) BILD LADEN: 

Diese Funktion ermöglicht es Ihnen, 
eine auf Diskette abgespeicherte Schal¬ 
tung in die Arbeitsfläche zu laden. 


Wenn die Funktion angewählt wurde, 
erscheint ein Fenster, und Sie müssen 
nun den Namen des zu ladenden Bildes 
eingeben. Der Name darf maximal acht 
Buchstaben lang sein. 

Mit < BREAK > wird die Funktion 
abgebrochen. 

Mit < ENTER > wird der Ladevor¬ 
gang ausgelöst. Nach ein paar Sekun¬ 
den befindet sich das Bild auf der Ar¬ 
beitsfläche und kann nun von Ihnen be¬ 
arbeitet werden. 

Sollten Sie einen Namen eingegeben 
haben, unter welchem sich kein Bild 
auf der Diskette befindet, so wird Ih¬ 
nen das mitgeteilt und auf Tastendruck 
gewartet. Anschließend wird die Op¬ 
tion abgebrochen. 

b) BILD SPEICHERN: 

Diese Funktion läuft im Prinzip genau¬ 
so ab wie BILD LADEN, nur daß Sie 
hier die Möglichkeit haben, eine ge¬ 
zeichnete Schaltung unter einem von 
Ihnen eingegebenen Namen auf Disket¬ 
te zu sichern. 

c) CATALOG: 

Mit dieser Funktion haben Sie die 
Möglichkeit, sämtliche unter USER 0 
befindlichen Dateien auf der Diskette 
einzusehen. 

Sollten mehr als zwölf Dateien vorhan¬ 
den sein, so wird auf Tastendruck ge¬ 
wartet, und anschließend werden die 
nächsten Dateinamen ausgegeben. 
Sind keine Dateien mehr vorhanden, 
wird die Funktion beendet. 

Es sei hier ausdrücklich daraufhinge¬ 
wiesen, daß nur Disketten verwendet 
werden dürfen, die im DATENFOR¬ 
MAT (FORMAT D) formatiert sind. 
Andernfalls reagiert diese Funktion 
nicht, und der Bildschirm wird durch 
Fehlermeldungen des Betriebssystems 
zerstört. 

d) BAUTEILE SPEICHERN: 

Mit dieser Funktion können Sie den 
kompletten Satz an Bauteilen auf Dis¬ 
kette sichern. So besteht die Möglich¬ 
keit, mehrere Dateien für verschiedene 
Zwecke (Elektroinstallation Schaltplä¬ 
ne, Zeichensätze...) anzulegen. 
An.sonsten ist diese Option mit BILD 
SPEICHERN identiseh. 

e) BAUTEILE LADEN: 

Diese Option ist mit BILD LADEN 
identi.sch, nur daß sie hier die Möglich¬ 
keit haben, einen Bauteilesatz zu laden. 

4. HARDCOPY: 

Dieses Pulldown-Menü besitzt zwei 
Funktionen: HARDCOPY, RAHMEN. 


a) HARDCOPY: 

Bevor Sie diese Funktion starten, müs¬ 
sen Sie zuerst Ihren Drueker ein¬ 
schalten. 

Ein Ausdruck dauert ungefähr drei bis 
vier Minuten. Nach Beenden des 
Drückens wird das Pulldown-Menü ge¬ 
löscht, und Sie können Weiterarbeiten. 
Die Hardcopy-Routine wurde für einen 
STAR NL-10 geschrieben und läuft auch 
auf EPSON-kompatiblen Druckern. 

b) RAHMEN: 

Durch Anklicken dieses Begriffs kön¬ 
nen Sie wählen, ob bei der HARDCO¬ 
PY der Rahmen mit ausgedruckt wer¬ 
den soll. 

Mit <COPY> können Sie den Rah¬ 
men ein- beziehungsweise ausschalten. 
Ist der Begriff invers dargestellt, wird 
der Rahmen mit ausgedruckt, andern¬ 
falls nicht. 

Hinweis: Der Rahmen am Bildschirm 
bleibt in jedem Fall erhalten! 

5. BEENDEN: 

Haben Sie dieses Menü angewählt, so 
erscheinen zwei Begriffe: BEENDEN, 
ZURÜCK. 

a) BEENDEN: 

Durch Anwählen dieses Begriffes wird 
der Computer mittels Kaltstart zurück- 
gesetzt, und Sie gelangen wieder ins 
BASIC. 

b) ZURÜCK: 

Wenn Sie diesen Begriff anklicken, 
verschwindet das Menü, und die Op¬ 
tion wird abgebrochen. Selbstverständ¬ 
lich können Sie das Menü auch verlas¬ 
sen, indem Sie den Zeiger aus dem 
Fenster hinausbewegen. 

(Dietmar Gradl/rs) 
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Programm—i 


Dreh-Driss 

Eine Tetris-Variante 
für zwei Spieler 

Irgendwann wird jedes Spiel langweilig. Meistens liegt 
dies Jedoch daran, daß die Spiele normalerweise nur für 
einen Spieler gedacht sind und somit bald die nötige Mo¬ 
tivation (“Jetzt zeig ich’s dir“) fehlt. Bei unserem Spiel 
Dreh-Driss ist das ganz anders. 


Nach dem Starten von *DD.BAS’ wird ein Schriftzug aufge¬ 
baut. Bis auf den Schriftzug und die darunter erscheinende 
Erläuterung bedient sich das gesamte Spiel der englischen 
Sprache, weil sich das ja einfach professioneller anhört be¬ 
ziehungsweise ansieht. Außerdem sind es meistens sowieso 
nur die Worte ’yes’ und ’no’. Nun wird der Programmteil 
‘DD.BIN’ nachgeladen. Das Spiel ist vornehmlich für Dis¬ 
kettenbetrieb geschrieben, kann jedoch genauso gut mit Kas¬ 
settenlaufwerk benutzt werden. Bei Fehlermeldungen kann 
es dann jedoch zu Unstimmigkeiten mit der Benutzeroberflä¬ 
che kommen, was den Spielfluß jedoch keinesfalls trübt. 
Will man das vermeiden, kann man an entsprechender Stelle 
ein ’!’ setzen, damit jeder Ladekommentar unterbunden 
wird. 

Leichte Bedienung wird großgeschrieben 

Wenn das Laden von 'DD.BIN' beendet ist, wird gefragt, ob 
man die Highscore-Liste nachladen will. Wenn sich die Datei 
’DDHS.’ schon auf Diskette oder Kassette befindet, kann 
man getrost RETURN, Leertaste, COPY oder Feuerknopf 
drücken, um die Frage zu bestätigen. Ansonsten mit ’N’, ’n’, 
zweimal 'Cursor rechts' oder Joystick rechts auf 'no' schal¬ 
ten und dann bestätigen. Das Programm akzeptiert, wie man 
sieht, recht viele Tasten, so daß ’COPY-Tasten-Verwöhnte’ 
nicht erst auf RETURN umdenken müssen. Nun wird die 
Highscore-Liste geladen oder nicht geladen, je nachdem, 
was man getippt hat. 

Es folgt das eigentliche Menü. Hier kann man mit ’P' oder 
'p' die Anzahl der Spieler und mit ’L’ oder ’l’ die Schwierig¬ 
keitsstufeeinstellen. Abgeschlossen wird mit RETURN oder 
Leertaste. Nun erscheint die Tastaturbelegung für das Spiel. 
Mit beliebiger Taste geht es weiter. Nachdem man die Copy¬ 
right-Meldung 'bestaunt’ und wiederum eine Taste gedrückt 
hat, beginnt das Spiel. 

Was muß ich machen? 

Ziel des Spieles ist, den Turm möglichst niedrig zu halten, 
der sich durch die andauernd herabfallenden Klötzchen an¬ 
sammelt. Wenn man eine horizontale Reihe lückenlos füllt. 


so wird sie gelöscht. Links und rechts der zwei Spielfelder 
kann man den aktuellen Punktstand, Level und die aktuelle 
Anzahl der gefallenen Klötzchen ablesen. Außerdem er¬ 
scheinen an den oberen Rändern jeweils die als nächstes zu 
erwartenden Bausteine. Die herabfaüenden Klötzchen kön¬ 
nen nach links und rechts gesteuert und gedreht werden. Man 
kann sie auch schneller runterfallen lassen, was einen Bonus 
einbringt. Es besteht ferner die Möglichkeit, den Level zu er¬ 
höhen. 

Nach Ende des Spiels erscheint die Highscore-Liste (entwe¬ 
der die nachgeladene oder die Liste aus dem Programm). 
Nun können Sie sich, wenn Sie gut genug waren, eintragen. 
Es wird gefragt, ob Sie zu einem weiterem Spiel fähig sind, 
und wenn nicht, ob Sie die neue Highscore-Liste abspeichern 
wollen. Das Programm verabschiedet sich musikalisch von 
Ihnen. 


Die Tastaturbelegung 

Besonders interessant ist die Tasiaturbelegung. Sie sollen ja 
nicht erst ausprobieren müssen. 

Spieler 1; Joystick I / Cursortasten, drehen mit SPACE 

Spieler 2: Joystick II / links = A, rechts=S, fallen=Z, 
drehen=1 

Um in den nächsten Level zu gelangen, drückt der erste Spie¬ 
ler den Cursor hoch und Spieler zwei die Taste ’W’. 

Ein Abbruch des Spiels ist mit CTRL und Q möglich. 

Um die Highscore-Liste ’DDHS.’ zu erstellen, muß man. 
wenn man gefragt wird, ob man sie laden will, ’no' anklicken 
(weil sie ja noch nicht existiert). Am Ende des Spieles sollten 
Sie nun auf die Frage, ob Sie die Highscore-Liste speichern 
wollen, mit ’yes’ antworten. Dadurch wird die Datei 
’DDHS.’ erstellt, und man kann beim nächsten Spiel die 
Highscore-Liste laden. Natürlich kann man immer am Ende 
des Spieles die aktuelle Liste abspeichern. Dann wird die alte 
Datei ’DDHS.’ überschrieben beziehungsweise in 
’DDHS.BAK’ umgewandelt. 

(Siegbert Riecker/rs) 



Bei Dreh-Driss geht die Post ah. Mit zwei Spielern macht das Spiel sogar 
dreimal so viel Spaß 
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[—Hardware 


Der Speichergigant 

Die erste Festplatte für den CPC 

Man glaubt es kaum, nach all den vielen Jahren hat es endlich ein Hersteller 
geschafft, eine Harddisk für die CPCs serienreif herzustellen. Was der 
Massenspeicher kostet und leistet, möchten wir Ihnen in diesem Bericht 
näherbringen. 


Angefangen hat es damit, daß wir einen 
Telefonanruf bekamen, in dem uns 
mitgcteilt wurde, daß es nach langer 
Forschungs- und Entwicklungsarbeit 
gelungen ist, mit dem CPC eine Fest¬ 
platte zu betreiben. Sollte es ein Traum 
sein, oder wollte man uns in die Irre 
führen? Skeptisch, wie wir nun einmal 
sind, vereinbarten wir einen Termin 
mit dem Hersteller, um uns ein eigenes 
Bild zu verschaffen. 

Nach einigen Tagen stand endlich die 
Festplatte für den CPC bei uns auf dem 
Schreibtisch. 

Der erste Eindruck 

Da steht sie nun. die erste Festplatte für 
den CPC. Das schwarzlackierle Ge¬ 
häuse macht einen gediegenen Ein¬ 
druck. Die Gedanken um Platzproble¬ 
me haben sich schnell verflüchtigt, da 
die Festplatte mit ihren Maßen (Tiefe 
26 cm, Breite 19 cm, Höhe 8,5 cm) 
zwar nicht besonders klein ist, aber 
dem Benutzer trotzdem noch genügend 
Platz auf dem eigenen Arbeitsplatz 
läßt. 

Nach dem Aufstellen werden die gelie¬ 
ferten Verbindungskabel ohne Proble¬ 
me angeschlossen. Ein Controller, der 
für den Datentransfer zwischen CPC 
und Festplatte zuständig ist, wird ein¬ 


fach an den Expansionport des CPC an¬ 
gesteckt. Beim CPC 464 wird der 
Floppy-Anschluß benutzt. 

Eventuelle Erweiterungen, die schon 
vorher angeschlossen waren, können 
weiter verwendet werden, da der Con¬ 
troller einen durchgeführten Bus be¬ 
sitzt. Allerdings wird vom Hersteller 
darauf hingewiesen, daß es besser 
wäre, den Controller als erstes am Ex¬ 
pansionport anzuschließen, da es an¬ 
sonsten mit mancher Hardware zu 
Konflikten kommen kann. 

Lieferumfang 

Öffnet man das Gehäuse der Festplatte, 
so entdeckt man, daß sich darunter eine 
20-MByte-Platte von Seagate verbirgt. 
Daß es sich um eine neue Generation 
handelt, läßt sich an der der sogenann¬ 
ten Slimline-Technik ersehen (3,5 
Zoll). Um einen problemlosen Lauf zu 
garantieren, wurde auch ein original 
Seagate-XT-Controller (STllM) zu¬ 
sammen mit eigenem Schallnctzteil in 
einem externen Gehäuse verwendet. 
Um die “feste Platte“ an allen CPCs zu 
betreiben, wird zur Interface-Karte ein 
entsprechender Stecker mitgeliefert. 
Doch was steckt in dem Interface? 

Erst einmal hätten wir das X-DDOS 
2.00 (steckt im eigenem EPROM- 


Sockel). Das X-DDOS ist ein erweiter¬ 
tes DOS. das das AMSDOS ersetzt. 
Alle RSX-Befehle, die vom AMSDOS 
bekannt sind, werden ebenfalls von X- 
DDOS unterstützt. 

Die erweiterten Befehle sind jedoch für 
ein Zweitlaufwerk mit 2x80 Spuren 
oder für die Festplatte ausgelegt, die 
sich auch unter BASIC nutzen lassen, 
wie ERA, REN. SYSCOPY, ATTRI¬ 
BUT, TYPE und so weiter. 

Pie Softwar e 

Um mit einer Diskette oder Festplatte 
arbeiten zu können, muß das entspre¬ 
chende Speichermedium für das Sy¬ 
stem vorbereitet werden. 

Bevor Sie also anfangen können. Ihre 
Daten von der Diskette oder Kassette 
auf die Festplatte zu transferieren, muß 
die Festplatte zwei Formatierungsstu¬ 
fen durchlaufen, eine Low-Level- und 
eine High-Level-Formatierung. 

Diese Art der Formatierung gilt auch 
für die Partitionierung der Festplatte. 
Diese muß nämlich in vier gleichgroße 
“Stücke“ eingeteilt werden. Die 
“Stücke“ sind als Laufwerk D:, E:. F:, 
G: ansprechbar. Damit würde sich eine 
theoretische Kapazität von 5160 kByte 
pro Stück ergeben. Warum theore¬ 
tisch? Die Oberfläche der Magnet¬ 
schicht unterliegt, genauso wie bei ei¬ 
ner Diskette, natürlichen und her.stelle- 
rischen Einflüßen. Das heißt, daß sich 
auf jeder Festplatte fehlerhafte Sekto¬ 
ren befinden, die erst einmal erfaßt 
werden müssen. 

Um einen Überblick zu bekommen, 
wird ein Programm milgeliefert, das 
beschädigte Sektoren oder Spuren in 
eine “Bad-Track-Tabelle“ einträgt und 
bei der späteren Datensicherung be¬ 
rücksichtigt. 



Bi/(/ J: Die koiiipifiic Ucß-ninf; hesteht uu.s FestpUme {im Bild iieöjjnet und 
geschlossen), dem Controller und Verbinäungskabel 



Bild 2: Der geiiffiwic Co/uroller 
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Um mit den Betriebssystemen CP/M 
2.2 oder CP/M Plus auf Festplatte ar¬ 
beiten zu können, gibt es Programme, 
die nicht nur die benötigten Files ko¬ 
pieren, sondern auch eine größere TPA 
för das CP/M 2.2 anlegen, wenn eine 
Speichercrwcitcrung vorhanden ist. 
Übrigens, mit dem RSX-Befehl SYS- 
COPY können die Systemspuren belie¬ 
big zwischen den vier Partitionen, dem 
3-Zoll-Laufwcrk und dem optionalen 
X'Laufwerk (2x80 Spuren) hin und her 
kopiert werden. Anpassungen sind 
nicht nötig. 

Zur Frage nach der Software-Kompati¬ 
bilität kann gesagt werden, daß das 
Dobbertin-DOS nahezu hundertpro¬ 
zentig kompatibel zum AMSDOS ist. 
Damit ist eine perfekte Zusammenar¬ 
beit mit allen gängigen Hard- und Soft¬ 
ware-Produkten (Dobbcrlin oder 
dk’tronics RAM-Erweiterung. EPROM- 
Karte, EPROMMER. serielle Schnitt¬ 
stelle, EPROM-Software, wie MA- 
XAM-Assembler. PROTEXT/PRO- 
MERGE (Textverarbeitung), jegliche 
CP/M-Standardsoftware wie dBase. 
Wordstar. Turbo Pascal. Multiplan...) 
gewährleistet. 

Um den verschiedenen Diskettenfor¬ 
maten gerecht zu werden, wird die 
benötigte Software je nach Kunden¬ 
wunsch auf 3-Zoll- oder 3.5-Zoll- be¬ 
ziehungsweise 5,25-Zoll-Vortex-For- 
mat geliefert. 

43K CP/M 2.2 läuft auf jedem CPC. 
63K CP/M 2.2 läuft nur mit 128-kByte 
RAM (CPC 6128 oder CPC 464/664 
mit mindestens 64-kByte RAM-Erwei¬ 
terung). 

Des weiteren liegt auf Diskette eine 
Anpassung für CP/M Plus bei. 

Um die Bildschirmausgabe zu be¬ 
schleunigen, wurde von der Firma 
Dobbertin eine Routine entwickelt, die 


eine wirklich rasante Ausgabe von 
Texten und Bildern erlaubt (eine Ein¬ 
schränkung: Die Routine läuft nur un¬ 
ter dem 63K CP/M 2.2). 


Um dk Bedkmuiji der Festplatte zu erleichtern, vt'er- 
den einine Utilities ntilgeliefert. 

— UD-Format. Com 
Funktion: Festplatte formatieren 

— Badtrack.Com 

Funktion: defekte Spuren markieren 

— Ltiiij^iiage.Com 

Funktion: Internationale Zeidtensälze Inur mit 6SK 
CP/M 2.2) 

— Pareopy. Com 

Funktinn: Parameter-Sektor kopieren 

— Syscopy.Com 

Funktion: Systemspuren kopieren 

— Writsys.Com 

Funktion: Baot.sektoren kopieren (wird bei der Imuitla- 
tion des 43-kByie- und 63-kB\te-CP/M bendtigt) 

— Demo. Pas 

Funktion: Turho-Paseal-Beispieiprogramm, das den 
.Aufruf WH Firmware-Routinen unter CP/M 2.2 demon¬ 
striert (Crußk, Sound...). 


Besonderheiten 

Die Auswahl der ROM-Nummern ist 
frei wählbar (I bis 7). 

Buspufferung in der HD-Interface- 
Karte: Alle Erweiterungen, die hinter 
der Karte stecken, werden mit 'aufge¬ 
frischten’ Prozessorsignalen versorgt. 
Die Stromversorgung der Interface- 
Karte und aller dahinterliegenden Er¬ 
weiterungen werden entweder über das 
Netzteil der Harddisk betrieben oder 
können vom CPC versorgt werden. 
Die Umschallung erfolgt über Jumper. 
Zwei Farb-LEDs (rot und grün), zei¬ 
gen Betriebszustand oder - art an. 

Die Festplatte kann völlig ohne Lauf¬ 
werke und sogar ohne Floppy-Control- 
1er (beim CPC 464) betrieben werden! 
Im aktiven Zustand belegt die Harddisk 
nur 768 Byte im RAM-Speicher. 

Nach dem Einschalten der Harddisk 
kann das Betriebssystem CP/M von ei¬ 


ner der angegebenen Partitionen mit 
dem erweiterten RSX-Befehl ICPM.4 
(Laufwerk D:) gebootet werden. 

Die Harddisk kann bei einem späteren 
PC-Kauf weiter verwendet werden. 

Die Anleitung 

Für die ersten Schritte liegt eine Kurz¬ 
anleitung als Beiblatt bei. Für weilcr- 
gehende Informationen wurde anstatt 
eines riesigen Handbuches eine kosten¬ 
günstige Lösung gefunden, das Hand¬ 
buch auf Diskette (zirka 140 kByte). 
Die Idee ist zwar nicht neu, aber prak¬ 
tisch. wenn der Benutzer einen 
Drucker besitzt. Was aber, wenn kein 
Drucker zur Verfügung .steht? Diesem 
Anwender bleibt nur die Möglichkeit, 
die Texte mit dem internen RSX-Be¬ 
fehl TYPE auf dem Bildschirm auszu¬ 
drucken. 

Bei dem Preis ist das für den “drucker- 
losen” Anwender nicht zumutbar. Hier 
sollte seitens des Herstellers eine ande¬ 
re Lösung gefunden werden. 

Fazit 

Das Arbeiten mit der Festplatte macht 
einfach Spaß, weil man auf einen 
Schlag auf große Daten zugreifen 
kann. Als Nachteil ist der Preis zu ver¬ 
zeichnen, der mit rund 1100 DM zu 
Buche schlägt. Wer aber den CPC im 
geschäftlichen Bereich nutzt, dem bie¬ 
tet sich einen große Chance, seine Da¬ 
ten bestmöglich zu verwalten. 

(cd) 

Infos: 

Dobbertin Industrie-Elekironic G/nhfl 

Bruhrmlniße 9 

6835 Brühl 

Tel.: 06202/7N17 


Floppys fÜrORO 464/664/6128 


TEAC.EInbaulaufwerk«: 

FDS5GFR 5.25". 360 KB/1,2 MB 

FD 235 HF 3.5-. 720 KB/1.44 MB 

Einbaurahmen 5.26" 

SHUGARTSA455 &25‘. 360 KB 

' STARDRIVE Zweltlaulw. anschluBfaitIg für CPC: 

• STARDRIVE 5,25- -TEAC- (720/360 KB) 

• STARORIVE 35“ -TEAC- (720^60 KB) 

• STARDRIVE 5,26- -SHUGART- (360 KB) 

• STARORIVE 3~ -HITA CHI - (36 0 K^_ 


DM 165.- 
DM 169.- 
OM 39.- 
OM 99- 

DM 289.- 
DM 239.- 
DM 199.- 
DM 199.- 


All« Floppys such tis Erstlsufuvsrk und alsDoppellsufwerk Inbollsbipsr Komblnsllon llefsrbsrll 
DISKETTEN (Auszug); 


ö.26‘ - 48 TPI {MD2D) no name (10 Sik.) DM 

5.25" - 48 TPI (MD2D) SILICON (10 Sik.) DM 

3.5“ -135 TPI (MF2DD) no name (10 Sik.) DM 

35“ - 135 TPI (MF2DO) SlüCpN (10 Sik.) DM 

ACHTUNOI Sonderposien CPC-So(tware u. Bücher 

Z.B.: Software: dBase II. Wordstar, Mulllplan usw. OM 

Bücher: CPC Inlern, Floppybuch usw DM 

Wsiieie AnQesoia sninahmsn Sis biiis u. Prospekisn/Lisien. dis wir ihnen gerne kostenlos zuschicken 
Pr^zzal. Pöfia.'Vo’packung Anzeige in PCput beachleni_ 


8,50 

1250 

18.50 

26.50 


99.- 

29,- 


G + L electronic 

Computerhardware 

6759 Hefersweiler • Seelenerstraße 4 • Tel: 06359/2582 


Pio-l?s6ign & Pzo-BooDtez ^ 

PRO DESIGN eröffnet Ihnen die faszinierende Welt des Grafik-Designs. Im Hand¬ 
umdrehen erstellen Sie professionelle Grafiken fOr alle Bereiche. Software vom 
Feinsten für CPC 464/664/6128. 

^ Ausführliches deutsches Handbuch im stabilen DIN-A5-Ordner 

— 10 tolle Schriften • CPC-Zelchensatz ‘ Rahmen * Schmucklinien * PIktogramme 

— Desktop-Steuerung mit selektiven Dlskettan-Kataiogen (superkomlortabeT) 

— Bis zu 16 Druckformate /144 Auagabeformulare 

— Kostenloser Drucker-Anpassungs-Servlce 

— Viele Zusatzschrlften auf Erweiterungsdisketten 

— Hervorragendes Echo in der Fachpresse (z.B. Amstrad International 10/88) 

— PRO-DESIGN 2.0 3‘-Di6ketle ’ Handbuch fOr nur S 4 ,B 5 OM 

— PRO-BOOSTER, die Superergänzung zu Pro-Design; 

-• Postereditor zur Erstellung bis zu 80 (achtzig!) Seiten langer Schriftbänder 

— Snapshot-Utility, Dokumenten-Druckprogramm (u.a. 24-hrafel-Trelber) 

— PRO-BOOSTER, 3 '-Diskett 0 • Anleitung för nur 34,95 OM 

Vamrtd gegen Voreuikane (frei) oder Neehnehm«(+ S,- OM) * HIndlerenIrsgen engenehm 



_ KOSTENLOSES INFO_ 

Ax&l Weber, Postfach 260154, D 5600 Wuppertal 26 

Crueaöer Softtoarc 
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Haste da noch Töne? 

Superkeyboard mit 
20 Rhythmen 

Wer kauft sich einen Computer und hat nicht im Hinter¬ 
kopf noch den Gedanken, mit diesem auch auch ab und 
zu ein paar kleine Spielchen zu spielen? Da gerade bei 
Spielen auch die Musik ein entscheidender Faktor ist, 
wollen wir Ihnen dieses kleine Keyboard vorstellen. 

Gerade mit dem CPC, der Ja sicherlich in einigen Haushalten 
nur zum Spielen benutzt wird, ist das Thema Musik immer 
wieder interessant, da der eingebaute Lautsprecher und die 
vielen Befehle zum Ansteuem desselben die Soundprogram¬ 
mierung sehr interessant machen. In der Entwicklung und 
Einstellung verschiedener Töne steckt aber auch eine ganze 
Menge Arbeit, die Ihnen unser Programm sicherlich ab- 
nimmt. Aber noch mehr: Das Superkeyboard hat auch noch 
20 verschiedene Rhythmem zu bieten. Damit ist es nicht nur 
auf das Gebiet der Entwicklung beschränkt, sondern auch für 
das wirkliche Musizieren einsatzfähig. 

Am Anfang einschalten 

Wie es sich für ein richtiges Keyboard gehört, muß man es 
erst einmal einschalten. Dies wird bei diesem durch einen 
Druck auf die Minustaste getan. Nun stehen folgende Tasten 
zur Verfügung: 

[1] Set Octave 

Gefällt Ihnen die Tonhöhe nicht, können Sie diese ändern. 
Hierbei steht fl 1 für einen hohen und [6] für einen tiefen Ton. 



Von der Hüllkurve !)i.\ zur Uuiisiiirke läßt sich alles eiusteilen. Selbst ein 
On-/Off-Schalier ist vorharuien 


[5] RHYTHM OFF 

Der Rhythmus wird ausgeschaltet und kann mit [4] wieder 
aktiviert werden. 

[6] RHYTHM Speed 

Die Geschwindigkeit kann geändert werden. 10 ist schnell. 
50 langsam. Optimal sind die Werte von 15 bis 20. 

[7] Vibrato ON 

Ein 'Vibrieren’ des Tones wird aktiviert. Dies eignet sich be¬ 
sonders für langsame Musikstücke. 

[8] Vibrato OFF 

Das Vibrato wird wieder ausgeschaltet. 

[9] Vibrato Depth 

Die Stärke des Vibratos wird geändert. Der Wert 1 ist 
schwach, 10 sehr stark (Schauereffekt); optimal ist hierbei 5. 


[2] Set Envelope 

Envelope 1 abklingend (Klavier) 

Envelope 2 ansteigend und wieder abklingend 
Envelope 3 ansteigend und laut bleibend 
Envelope 4 rasch ansteigend und rasch abklingend 

[3] Envelope Off 

Die ENV kann ausgeschaltete werden, die Lautstärke bleibt 
konstant, also auf 15. Ein Ton ist hierbei 1,5 Sekunden lang. 

14] Set RHYTHM 

Hier haben Sie die Wahl zwischen 20 verschiedenen 
Rhythmen. 


für 464-664-6128 



10 1********************* 

[657] 

20 ’* KEYBOARD PSK 8584 * 

[1344] 

30 1 ********************** 

[657] 

40 ' 

[117] 

50 ’>>> INKS «< 

[688] 

60 ' 

[117] 

70 MODE l:INK 1,26;INK 2,17:INK 3,11 

[1929] 

80 INK 0,0:BORDER 5 

[619] 

90 PLOT-5,-5,1 

[308] 

100 ' 

[117] 

Lisling KEYBOARO 



[0] Pitch/Tune 

Der Ton kann einem Musikinstrument angepaßt werden. Das 
Keyboard wird gestimmt. 

[—] Power ON/OFF 

ist der Schalter auf OFF, kann keine der Tasten außer f-] be¬ 
nutzt werden. Das Keyboard ist ausgeschaltet. 

[t] END PRG 
Ende des Programms 

(Christian Popp/rs) 


110 '»> Transparentzeichen «< [1909] 

120 ■ [ 117 ] 

130 tlonS=CHRS(22)+CHR$(l) [943] 

140 tloff$=CHR$(22)+CHRS(0) [306] 

150 t2onS=CHRS(23)+CHRS(l) [2052] 

160 t2off$=CHR$(23)+CHRS {0) [1073] 

170 ’ [117] 

180 '»> Symbole <« [801] 

190 ' [117] 

200 SYMBOL AFTER 32 [1296] 


210 SYMBOL 97,255,255,255,255,255,255,255, [2525] 
255 

220 SYMBOL 98,254,254,254,254,254,254,254, [2634] 
254 

230 SYMBOL 99,255,255,255,255,255,255,255, [2078] 
üstlng KEYBOARD 
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127 

240 SYMBOL 100,254,254,254,254,254,254,254 (;2565] 
,252 

250 ‘ {117] 

260 ’>>> Bildschirmaufbau [1156] 

270 ' [117] 

280 FOR i=5 TO 15:PEN l:LOCATE 9,i:PRrNT"a [4225] 

bababababababababababab":NEXT 

290 LOCATE 9,16:PRINT’'cdcdcdcdcdcdcdcdcdcd [5334] 
cdcd" 

300 PRINT tlonS:FOR i=5 TO 10:PEN 3 [1988] 

310 LOCATE 9,i:PRlNT'' abab ababab abab [4380] 
ab":NEXT 

320 LOCATE 9,11:PRINT" cdcd cdcdcd cdcd [6178] 
cd":PRINT tloffs 

330 SYMBOL AFTER 32:PRINT t2on$ [3220] 

340 TAG [318] 

350 a$="A S D F G H J K L : ; ]" [1574] 

360 b$=" W E T Y U OP [" [1144] 

370 X=LEN(aS)*16:x=x/2 [1706] 

380 MOVE 3ie-X,160:PRINT aS;;PLOT -5,-5,3: [3617] 
MOVE 318-X,240:PRINT bS/ 

390 TAGOFF [1066] 

400 PRINT t2offS [819] 

410 oct=l:enve=l:rflag=0:r=0:rs=25:vib=0:d [4300] 
epth=^5:pitch=0:n=0:s=3: '>>> Variablen 
420 PEN 1 [549] 

430 FOR i=146 TO 400 [678] 

440 PLOT 0,i,2;DRAW 124,i [715] 

450 PLOT 512,i:DRAW 640,i:NEXT [675] 

460 FOR i=336 TO 400:PL0T l,i,2:DRAW 640,i [2910] 
:NEXT 

470 FOR i=340 TO 394;PLOT 30,i,l:DRAW 608, [3112] 
i:NEXT 

480 FOR i=0 TO 160 STEP 6 [930] 

490 PLOT 10,166+i,0:DRAW 112,166+i [967] 

500 PLOT 522,166+i :DRAW 630,166+i:NEXT [1309] 
510 PLOT 10,166:DRAW 10,322:DRAW 112,322:0 [3150] 
RAW 112,166:DRAW 10,166 

520 LOCATE 1,23:PR1NT’' OCTAVE: 1 ENV: 1 [7186] 

ENV is: OFF RHYTHM: R. 

SPEED: 25 VIBRATO DEPTH : 5 PITC 

H : 0 " 

530 PLOT 522,166:DRAW 522,322:DRAW 630,322 [3477] 
:DRAW 630,166:DRAW 522,166 

540 PAPER l:PEN 0 [871] 

550 LOCATE 4,2:PRINT"Poppie’S Super Keyboa [3955] 
rd 'PSK 8584'" 

560 LOCATE 5,3:PRINT"(c) 1989 by Christian [4983] 
W. F. Popp";PEN 1:PAPER 0:LOCATE 1,17 
570 PRINT STRING$(40,154); [1346] 

580 LOCATE 1,18:PRINT"[1] Set Octave [2] S [13639] 
et ENV [3] ENV OFP[4] Set Rhythm [5] Rht 
ra. OFF [6] R.Speed[7] Vibrato ON [8] Vibr. 

OFF [9] V.Depth(0] Pitch/Tune [-] POWER 1 
/O [*] END PRG" 

390 LOCATE 1,22:PRINT STRINGS(40,154); [2570] 

600 LOCATE 35,23:PEN 3:PRINT"POWER" [1305] 

610 LOCATE 35,25:PEN 3:PRINT CHRS(230);" 0 [2369] 
FF" 

620 WHILE INKEyS<>"-":WEND [1631] 

630 LOCATE 35,25:PEN 1:PRINT CHR${231);CHR [3924] 
$(8);tlon$;:PEN 3:PRINT CHRS(230);tloffS;" 

ON" 

640 IF schon=0 THEN GOSUB 1090:SChon=l:'» [5486] 

> imalige Variablendefinition «< 

650 ' [117] 

660 ’» Tastaturabfrage << [1603] 

670 ’ [117] 

680 aS=INKEYS (278] 

690 IF UPPER$(aS)="A" THEN n=l:GOSUB 1650 [3833] 

:GOTO 680:'bis Zeile 

700 IF UPPER$(a$)="W" THEN n=2:GOSUB 1650 [3169] 

;GOTO 680:'Nummer 690: 

710 IF UPPERS(aS)="S" THEN n=3:GOSUB 1650 [2666] 

:GOTO 680:'und Zeile Nr. 

720 IF UPPBR$(aS)*"E" THEN n=4:GOSUB 1650 [1747] 

:GOTO 680;'800; 

730 IF UPPERS(a$)="D" THEN n=5:G0SÜB 1650 [3996] 

;GOTO 680:'Abfrage Der Noten 
740 IF tJPPERS(aS) = "F" THEN n=6:GOSUB 1650 [1982] 

:GOTO 680 

750 IF UPPERS{aS)="T" THEN n=7:GOSUB 1650 [3440] 

:GOTO 680 

760 IF UPPERS(aS)="G" THEN n=8:G0SUB 1650 [2876] 

Listing KEYBOARD 


:GOTO 680 


770 IF UPPBRS(a$)="Y" 
:GOTO 680 

THEN 

n==9:GOSUB 1650 

[2553] 

780 IF UPPER$(aS)="H" 
:GOTO 680 

THEN 

n=10:GOSUB 

1650 

[3501] 

790 IF UPPERS(aS)="U" 
:GOTO 680 

THEN 

n=ll:GOSUB 

1650 

[1581] 

800 IF UPPERS(aS)="J" 
:GOTO 680 

THEN 

n=12:GOSUB 

1650 

[1893] 

810 IF UPPERS(aS)="K" 
:GOTO 680 

THEN 

n=i3:GOSüB 

1650 

[3269] 

820 IF npPER$(aS)="0" 
:GOTO 680 

THEN 

n=14:GOSÜB 

1650 

[2815] 

830 IF UPPERS(a$)="L" 
:GOTO 6B0 

THEN 

n==15;GOSUB 

1650 

[3182] 

840 IF UPPERS(aS)="P" 
:GOTO 680 

THEN 

n=i6:GOSUB 

1650 

[2461] 


850 IF aS=":" THEN n=17;GOSUB 1650 
:GOTO 680 

860 IF aS=";" THEN n=18:GOSUB 1650 
:GOTO 680 

870 IF aS="[" THEN n=19:GOSUB 1650 
:GOTO 680 

880 IF aS="l" THEN OCt=OCt+l:IF OCt>6 THEN 
oct=l:LOCATE 9,23:PEN 1:PRINT oct ELSE LO 
CATE 9,23:PEN 1:PRINT Oct 

890 IF aS="2" THEN LOCATE 29,23:PRINT" ON" 
;enve=enve+l:lP enve>4 THEN enve=l:LOCATE 


[1515] 

[1510] 

[1249] 

[6640] 

[10760] 


17,23;PEN 1:PRINT enve ELSE LOCATE 17,23:P 
EN i:PRINT enve 

900 IF a$="3" THEN enve=0:LOCATE 29,23:PRI [4617] 
NT"0FF" ELSE IF enve>0 THEN LOCATE 29,23:P 
RINT"ON " 

910 IF aS="4" THEN rflag=l:s®2:r-r+1;IF r> [7321] 
20 THEN r=l:LOCATE 9,24:PEN 1:PRINT rhS(r) 

ELSE LOCATE 9,24:PEN 1:PRINT rh$(r} 

920 IF aS="5" THEN rflag=0:LOCATE 9,24:PRI [2246] 
NT" RHYTHM OFF":s=3 

930 IF a$="6" THEN rs=rs-l:IF rs<10 THEN r [8771] 
S=50:ENV 8,30,-l,rs/5:LOCATE 29,24:PRINT r 
S ELSE LOCATE 29,24:PRINT rs:ENV 8,30,-l,r 
S/5 

940 IF aS="7" THEN vib=l:LOCATE 17,25:PRIN [2696] 
T depth 

950 IF a$*"a" THEN vib=0;LOCATE 17,25:PRIN [3232] 

ipir ! n 

960 IF a$="9" THEN depth=depth+l:IF depth> [8675] 

10 THEN depth=l:LOCATE 17,25;PRINT depthtE 

NT-1,depth,1,1,depth,-1,1 ELSE LOCATE 17,2 

5:PRINT depth:ENT-1,depth,1,1,depth,-1,1 

970 IF a$="0" THEN pitch=pitch+l:IF pitch> (6550) 

20 THEN pitch=0:LOCATE 28,25:PRINT pitch E 

LSE LOCATE 28,25;PRINT pitCh 

980 IF aS="]" THEN n=20:GOSUB 1650 [1755] 

:GOTO 680 

990 IF aS»"'" THEN CLS:PAPER 0:PEN 1:PRINT [5311] 
CHR$(7):CALL ScBB4E:CALL SiBC02:CALL SBEFF; 

MODE 1:SPEED KEY 20,2;END 

1000 IF a$="-" THEN PEN 3:LOCATB 35,25:PRI [2134] 
NT CHR$(230);" OFF":GOTO 620 


1010 IF rflag=l THEN GOSUB 1580 [2111] 

1020 GOTO 680 [460] 

1030 END [110] 

1040 ' [117] 

1050 •>>> Definition & Initialisierung «< [2633] 

1060 ' [117] 

1070 ' * ENVS & ENTS * [1374] 

1080 ' [117] 

1090 ENT -1,5,1,1,5,-1,1 [828] 

1100 ENV 8,30,-1,5 [604] 

1110 ENV 1,30,-1,10 [394] 

1120 ENV 2,1,-5,1,5,1,1,15,-1,7 [1218] 

1130 ENV 3,1,-10,1,10,1,1,15,0,0 [1338] 

1140 ENV 4,1,-10,1,10,1,1,15,-1,1 [1278] 

1150 ' [117] 

1160 '* Noten * [467] 

1170 ' [117] 

1180 DATA 119,113,106,100,95,89,84,79,75 [1715] 

1190 DATA 71,67,63,60,56,53,50,47,45,42,40 [1713] 
1200 DIM no(20):FOR i=l TO 20:READ no(i):N [1228] 
EXT 

1210 ' [117] 

1220 '* 20 Rhythmen * [59] 

1230 ' [117] 


Listing KEYBOARD 
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1240 DATÄ ”8-Beat (1) ",8 

1 , 10,1 

1250 DATA "8-Beat (2) ",8 

, 10,1 

1260 DATA "8-Beat (3) ",8 
,5,1 

1270 DATA "Shuffle ",6 
1280 DATA "Slow Rock 1",12 

1.15.1.5.1.30.1 

1290 DATA "Slow Rock 2",6 
1300 DATA "Walt2 (1) ",6 

1310 DATA "Waltz (2) ",6 

1320 DATA "Waltz (3) ",6 

1330 DATA "Samba ",8 

,10,15,5 

1340 DATA "Bossa Nova ",16 
,10,0,30,1,1,30,30,1,5,15 
1350 DATA "Rock (1) ",8 

10 . 10.1 

1360 DATA "Rock (2) ",16 

,10,30,1,30,10,1,30,1,10,1 
1370 DATA "March ",4 

1380 DATA "Drununin'l ",8 

1,1 

1390 DATA "Druiiutiin ' 2 ",8 

1,1 

1400 DATA "Country 1 ",4 

1410 DATA "Country 2 ",8 

1,5,5 

1420 DATA "Swing ",12 

1,1,5,1,10,10,1 

1430 DATA "Bass Rock ",16 


,30,1,10,30,30, [1751] 

,30,1,5,5,30,30 [2076] 

,30,1,1,30,30,1 [2232] 

,30,1,1,10,1,5 [1029] 

,30,1,10,10,10, [1360] 

,30,1,1,10,1,1 [1242] 

,30,1,10,1,5,15 [1605] 
,30,1,10,1,10,1 [1913] 
,30,1,10,1,5,1 [2124] 

,30,30,10,30,30 [1594] 

,30,1,1,30,30,1 [2787] 

,30,1,10,30,30, [2441] 

,30,1,10,1,30,1 [3488] 

,30,1,10,1 [1775] 

,30,1,1,1,10,0, [1989] 

,30,1,1,1,10,1, [1819] 

[558] 
[ 1112 ] 

[2935] 

[4401] 

[1384] 


30,0,1,1 
SO,1,10,10,20, 

30,10,1,10,10, 

30,1,30,1,30,1 

,1,1,30,30,30,30,20,15,10,5 

1440 DIM rhS(20),beat(20),drum{20,16) 

Usüng KEYBOARD 


1450 FOR i=l TO 20 [313] 

1460 READ rhS(i) [424] 

1470 READ beat(i) [808] 

1480 FOR j=l TO beat(i):READ druitld, j ) :NEX [3077] 
T:NEXT 

1490 ’ [117] 

1500 '* Soundkanaele * [307] 

1510 ' [117] 

1520 FOR i=l TO 3:READ kan(i):NEXT [871] 

1530 DATA 129,130,132 [640] 

1540 RETURN [555] 

1550 ■ [117] 

1560 ■>>> Rhythmusausgabe <<< [1321] 

1570 ' [117] 

1580 rn=rn+l [415] 

1590 IF rn>beat(r) THEN rn=l [424] 

1600 SOUND 4,0,rs,15,8,,drum(r,rn) [1902] 

1610 RETURN [555] 

1620 ' [117] 

1630 '>» Soundausgabe [1022] 

1640 ’ [117] 

1850 kn=kn+l:IF kn>s THEN kn=l [1054] 

1660 SOUND kan(kn),(no(n)*oct)+pitch,150,1 [3107] 
5,enve,vib:RETURN 

1670 ' [117] 

1680 '************************************ [2519] 
************************************* 

1690 ’ [117] 

1700 ’ Viel Spass mit meinem Programm "Pop [2099] 
pie’s Super Organ" 

1710 ' [117] 

1720 ' Christian Popp (15), Heidelberg ,29 [4559] 
.10.1989 um 12,18:49 Uhr 

1730 ' [117] 

Lisling KEYBOAHD 


HELP 

Rechenhilfe für CPC-User 

Bei HELP handelt es sich um eine Hilfestellung bei der 
Umwandlung und Berechnung von Integerzahlen. Da 
das Programm als Maschinencode vorliegt, kann es je¬ 
derzeit, auch von einem BASIC-Programm aus, als 
RSX-Routine aufgerufen werden. 

Alle Eingaben werden in dezimaler, hexadezimaler und binä¬ 
rer Form ausgegeben und sind so dem Anwender bei der Um¬ 
wandlung beziehungsweise bei der Berechnung von Adres¬ 
sen behilflich. 

Geben Sie bitte das Listing HELP.BAS ein, und speichern 
Sie es ab. Führen Sie einen Reset durch und tippen den BA- 
SIC-Lader für HELP.BIN ab. Speichern Sie dieses Pro¬ 
gramm sicherheitshalber auch ab (kann später gelöscht wer¬ 
den), und starten Sie es durch RUN. Falls alles fehlerfrei ab¬ 
getippt wurde, wird automatisch der Objectcodc auf Kassette 
oder Diskette gespeichert. 


Nachdem Sie alles abgespeichert haben, starten Sie das BA¬ 
SIC-Programm. Nach der Eingabe Ihres Rechnertyps wird 
HELP.BIN nachgeladen und an Ihren CPC angepaßt. 

Haben Sie das Programm nun mittels ’IH' gestartet, können 
Sie zwischen sechs verschiedenen Punkten auswählen. 

• Zahl umwandeln 

Geben Sie hier nun die gewünschte dezimale Zahl ein, die Sie 
gerne in hexadezimale oder binäre Zahlen umgerechnet ha¬ 
ben wollen. Prompt erscheint das Ergebnis auf dem Bild¬ 
schirm. 

• Addition 

• Subtraktion 

• Multiplikation 

• Division 

Nach Anwah! einer dieser Punkte müssen jeweils zwei Zah¬ 
len eingegeben werden, die entsprechend der angewählten 
Rechenart miteinander verarbeitet werden. 

• Return 

Hinter diesem Menüpunkt verbirgt sich der Schlüssel für die 
Tür zum BASIC. Haben Sie diesen Punkt angewählt, wird 
das Programm beendet und verbleibt weiterhin im Speicher. 
Einem weiteren Aufruf mit ’IH’ steht nichts im Wege. 

(Roland Schäffer/rs) 


für 464-664-6128 




10 

REM 

************************* 

[1413] 

20 


HELP 

[168] 

30 


Rechenhilfe fuer cPC-User 

[2081] 

40 


Integerzahlen 

[426] 

50 



[117] 

60 


(wr) SCHAEFFER ROLAND 

[501] 

80 

REM 

************************* 

[1413] 

90 

REM 

INITIALISIERUNG 

[2397] 


Listing HELP 


100 ' opcode laden und 

110 ' RSX aktivieren 

120 MEMORY &9PFP 

130 LOAD "help.bin" :CALL S.A000 

140 REM TITEL 

150 MODE 1 

160 a$="RECHENHILFE FUER CPC-USER VERS 1 

, 0 " 

170 alS="(C) SCHAEFFER ROLAND 1990" 


180 

bS*"C 

P 

C 

464 

—> L" 

190 

CS="C 

P 

C 

664 

-> 2" 

200 

dS="C 

P 

c 

6128 

-> 3" 


Listing HELP 


[1752] 

[1087] 

[134] 

[1681] 

[405] 

[506] 

[4112] 

[1386] 

[963] 

[682] 

[762] 


30 PC 8/9’90 





























Tips & Tricks—| 


210 

t$="BrTTE RECHNERTYP EINGEBEN" 


[2369] 

220 

LOCATE 21-LEN(aS)/2,l:PRINT a$ 


U403] 

230 

LOCATE 21-LEN(alS)/2,3:PRINT al$ 


[2045] 

240 

LOCATE 21-LEN(b$)/2,8;PRINT bS 


[1600] 

250 

LOCATE 21-LEN(c$)/2,ll:PRINT cS 


[1649] 

260 

LOCATE 21-LEN(d$)/2,14:PRINT d$ 


[821] 

270 

LOCATE 2i-LEN(t$)/2,22:PRINT tS 


[917] 

280 

( 


[117] 

290 

REM TASTATURABFRAGE 


[1424] 

300 

CALL 6BB06:CALL 6BB09 


[1218] 

310 

IF INKEY(64)=0 THEN 420 ELSE IF INKEYt 

[4443] 

65) = 

=0 THEN 330 ELSE IF INKEY(57)=0 THEN 

38 


0 ELSE 300 



320 

REM POKES FUER CPC 664 


[967] 

330 

POKE &A19C,677;POKE 6A19D,6DD:POKE 

6A1 

[1998] 

C7,&B3 



340 

POKE 6A1C8,&DD:P0KE &A20D,5ECtPOKE 

6A2 

[2434] 

OE,&EE 



350 

POKE 6A212,65:POKE 6A213,6EF:POKE 6A3A 

[4117] 

8,649 



360 

POKE 6A3A9,6EF 


[632] 

370 

REM POKES FUER CPC 6128 


[1071] 

380 

POKE 6A19C,672:POKE 6A19D,6DD:POKE 

6A1 

[2328] 

C7,&AE 



390 

POKE &A1C8,6DD:P0KE 6A20D,6E7rPOKE 

6A2 

[1379] 

OE,&EE 



400 

POKE 6A212,60;P0KE 6A213,SEF:POKE 6A3A 

[2511] 

8,644 



410 

POKE 6A3A9,6EF 


[632] 

420 

MODE 2 


[513] 

430 

a$="Start der Rechenhilfe" 


[1886] 

440 

bS="mittels der RSX-Routine 


[2566] 

450 

cS="lh" 


[380] 

460 

LOCATE 41-LEN(aS}/2,7:PRINT a$ 


[1320] 

470 

LOCATE 41-LEN(bS)/2,ll:PRINT b$ 


[1167] 

480 

LOCATE 41-LEN(CS)/2,15:PRINT cS 


[1813] 

490 

NEW 


[318] 

100 

'DATA-Lader fuer HELP.BIN 


[1198] 

110 



[117] 

120 

'Ladeadresse: 6A000 


[325] 

130 

'Laenge: 606D0 


[733] 

140 

'Startadresse: 60000 


[1303] 

150 

1 


[117] 

160 

MEMORY 5A000-l;zei=270 


[1085] 

170 

FOR i=&A000 TO 6A6DO STEP 8 


[1243] 

180 

SUm=0;FOR jsäO TO 7 


[1044] 

190 

READ aS:a=VAL("6"+a$) :suin=suin+a 

:PO 

[2315] 

KE j+i,a 



200 

NEXT j 


[370] 

210 

READ a$:a=VAL("6"+a$) 


[883] 

220 

IF aosuni THEN PRINT"DATAFEHLER in Z 

[3034] 

eile''zei:END 



230 

zei= 2 ei+io 


[393] 

240 

NEXT i 


[375] 

250 

SAVE"HELP .BIN",B,6A000,66D0,60 


[1462] 

260 

' 


[117] 

280 

DATA Ol,13,AO,21,OF,AO,CD,Dl,0322 


[2056] 

290 

DATA BC,3E,C9,32,00,AO,C9,00,035E 


[074] 

300 

DATA 00,00,00,17,AO,18,02,C8,0199 


[1403] 

310 

DATA 00,3E,02,CD,OB,BC,21,01,01F9 


[2191] 

320 

DATA 0A,CD,75,BB,21,B6,A3,CD,044E 


[2048] 

330 

DATA AC,A3,21,04,35,CD,7S,BB,03A6 


[1542] 

340 

DATA 21,EF,A3,CD,AC,A3,21,05,03F5 


[2020] 

350 

DATA 35,CD,75,BB,21,01,A4,CD,03C5 


[1485] 

360 

DATA AC,A3,21,06,35,CD,75,BB,03A8 


[1633] 

370 

DATA 21,OD,A4,CD,AC,A3,21,07,0316 


[1105] 

380 

DATA 35,CD,75,BB,21,1C,A4,CD,03E0 


[1543] 

390 

DATA AC,A3,21,08,35,CD,75,BB,03AA 


[2584] 

400 

DATA 21,2E,A4,CD,AC,A3,21,09,0339 


[1474] 

410 

DATA 35,CD,75,BB,21,3A,A4,CD,03FE 


[1777] 

420 

DATA AC,A3,21,05,03,CD,75,BB,0375 


[2038] 

430 

DATA 21,44,A4,CD,AC,A3,21,07,0340 


[1642] 

440 

DATA 03,CD,75,BB,21,5A,A4,CD,03EC 


[1818] 

450 

DATA ÄC,A3,21,OA,03,CD,75,BB,037A 


[1467] 

460 

DATA 21,A6,A4,CD,AC,A3,21,0D,03BS 


[1791] 

470 

DATA OE,CD,75,BB,21,70,A4,CD,040D 


[906] 

480 

DATA AC,A3,21,OF,01,CD,75,BB,037D 


[1748] 

490 

DATA 21,ÄF,A4,CD,AC,A3,21,11,03C2 


[I486] 

500 

DATA 01,CD,75,BB,21,BA,A4,CD,044A 


[881] 

510 

DATA AC,A3,21,12,OD,CD,75,B0,O38C 


[1384] 

520 

DATA 21,C5,A4,CD,AC,A3,21,14,03DB 


[1114] 

530 

DATA 01,CD,75,BB,21,01,A5,CD,0392 


[1269] 

540 

DATA AC,A3,21,16,0D,CD,75,BB,0390 


[1922] 

550 

DATA 21,0C,A5,CD,AC,A3,CD,00,03BB 


[1648] 

Lisling HELP 




560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 


DATA B9,CD,B1,A2,CD,BC,A2,CD,05D1 
DATA 06,BB,FE,31,2a,lF,FE,32,0367 
DATA 28,36,FE,33,28,53,FE,34,0344 
DATA CA,7C,A1,FE,35,CA,A7,Al,052C 
DATA FE,36,28,02,18,DE,3E,02,0294 
DATA C3,OE,BC,18,D7,21,OA,OE,02B5 
DATA CD,75,BB,21,EF,A3,CD,AC,0529 
DATA A3,21,05,0E,CD,75,BB,CD,03A1 
DATA 0A,BB,CD,FF,AL,C3,49,A2,O56O 
DATA CD,C2,A2,21,01,A4,CD,AC,0470 
DATA A3,CD,23,A2,CD,FF,A1,CD,056F 
DATA 2D,A2,CD,FF,A1,CD,41,A2,04EC 
DATA ED,5B,A2,A6,2A,A4,A6,19,041D 
DATA DA,15,A3,22,AO,A6,C3,49,0406 
DATA A2,CD,C2,A2,21,0D,A4,CD,0472 
DATA AC,A3,CD,23,A2,CD,FF,Al,054E 
DATA CD,2D,A2,CD,FF,Al,CD,41,0517 
DATA A2,ED,5B,A4,A6,2A,Ä2,A6,04A6 
DATA B7,ED,52,DA,1A,A3,22,A0,044F 
DATA A6,C3,49,A2,CD,C2,A2,21,04A6 
DATA 1C,A4,CD,AC,A3,CD,23,A2,046E 
DATA CD,FF,A1,CD,2D,A2,CD,FF,05D5 
DATA A1,CD,41,A2,ED,5B,A2,A6,04E1 
DATA 2A,A4,A6,CD,aE,BD,DA,15,04AB 
DATA A3,22,A0,A6,C3,49,A2,CD,04a6 
DATA C2,A2,21,2E,A4,CD,AC,A3,0473 
DATA CD,23,A2,CD,FF,A1,CD,2D,04F9 
DATA A2,CD,FF,Al,CD,41,A2,2A,04E9 
DATA A2,A6,ED,5B,A4,A6,CD,C1,0568 
DATA BD,2 2,A4,A6,ED,53,AO,A6,04AF 
DATA 21,17,01,CD,75,BB,21,7E,02D5 
DATA A6,CD,AC,A3,21,17,OF,CD,03D6 
DATA 75,BB,CD,9F,A3,21,17,21,0398 
DATA CD,75,BB,CD,7D,A3,21,17,0422 
DATA 37,CD,75,BB,CD,39,A3,2A,0407 
DATA A4,A6,22,A0,A6,ia,4A,0E,0322 
DATA 12,21,A8,A6,CD,C9,A2,3E,03F7 
DATA 26,BE,2ö,05,CD,lC,EE,18,02Fa 
DATA 03,CD,35,EE,38,08,DD,E1,03F1 
DATA CA,OB,A3,C3,03,A3,ED,53,0421 
DATA A0,A6,C9,21,05,0E,CD,75,0385 
DATA BB,CD,8A,BB,C9,ED,53,A2,0578 
DATA A6,CD,79,A2,CD,B1,A2,21,04CP 
DATA 07,0E,CD,75,BB,CD,8A,BB,0424 
DATA C9,ED,53,A4,A6,CD,95,A2,0557 
DATA C9,21,14,OF,CD,75,BB,CD,03D7 
DATA 9F,A3,21,14,21,CD,75,BB,0395 
DATA CD,7D,A3,21,14,37,CD,75,039B 
DATA BB,CD,39,A3,21,19,34,CD,039F 
DATA 75,BB,21,89,A6,CD,AC,A3,049C 
DATA CD,BC,A2,CD,06,BB,C3,19,0495 
DATA AO,2i,0F,0F,CD,75,BB,CD,03A9 
DATA 9F,A3,21,OF,21,CD,75,BB,0390 
DATA CD,7D,A3,21,OF,37,CD,75,0396 
DATA BB,CD,39,A3,C9,21,11,0F,036E 
DATA CD,75,BB,CD,9F,A3,21,11,043E 
DATA 21,CD,75,BB,CD,7D,A3,21,042C 
DATA 11,37,CD,75,BB,CD,39,A3,03EE 
DATA C9,21,A8,A6,AF,06,14,77,0378 
DATA 23,10,FC,C9,CD,09,BB,38,03C1 
DATA FB,C9,21,OA,OE,CD,75,BB,03FA 
DATA C9,CD,BC,A2,D5,ES,06,00,0484 
DATA 11,DO,A2,D5,CD,06,BB,5F,0445 
DATA FE,0D,28,22,FE,7F,28,OE,030B 
DATA FE,20,D8,F6,79,B8,C8,73,055A 
DATA 23,04,7B,C3,5A,BB,78,B7,03A9 
DATA Ca,2B,77,05,3E,08,CD,5A,02DC 
DATA BB,3E,10,C3,5A,BB,D1,E1,0493 
DATA Dl,37,C9,21,4 8,A5,2 2,A6,03A7 
DATA A6,18,14,21,86,A5,18,F6,032C 
DATA 21,C4,A5,18,F1,21,02,A6,035C 
DATA 18,EC,21,40,A6,18,E7,3E,0348 
DATA 07,CD,5A,BB,21,18,03,CD,02F2 
DATA 75,BB,2A,A6,A6,CD,AC,A3,04C2 
DATA CD,BC,A2,CD,06,BB,C3,19,0495 
DATA A0,2A,A0,A6,7C,CD,4D,A3,0449 
DATA 3E,2O,CD,5A,aB,2A,AO,A6,03BO 
DATA 7D,CD,4D,A3,C9,CB,7F,CD,051A 
DATA 72, A3,CB, 77, CD,72,A3,CB,0504 
DATA 6F,CD,72,A3,CB,67,CD,72,04C2 
DATA A3,CB,5F,CD,72,A3,CB,57,04D1 
DATA CD,72,A3,CB,4F,CD,72,A3,04DE 
DATA CB,47,F5,3E,30,28,01,3C,02DA 
DATA CD,5A,BB,Fl,C9,2A,AO,A6,050C 
DATA 7C,CD,89,A3,7D,CD,a9,A3,04EB 


üslfngHELP 


[3179] 

[1546] 

[1711] 

[1503] 

[1103] 

[2094] 

[2209] 

[1502] 

[1179] 

[925] 

[665] 

[1330] 

1896] 

[1422] 

[1359] 

[1234] 

[899] 

[2049] 

[1709] 

[1453] 

[2500] 

[2407] 

[719] 

[ 1200 ] 

[1527] 

[1806] 

[549] 

[1526] 

[1453] 

[1098] 

[1765] 

[1353] 

[1797] 

[1143] 

[1555] 

[841] 

[1502] 

[1972] 

[1542] 

[1450] 

[1745] 

[1526] 

[1667] 

[993] 

[1801] 

[781] 

[1079] 

[1505] 

[1026] 

[1708] 

[1414] 

[1745] 

[992] 

[1744] 

[1300] 

[1226] 

[609] 

[1967] 

[1698] 

[1072] 

[1489] 

[2040] 

[1507] 

[2078] 

[1577] 

[1504] 

[1193] 

[1437] 

[1474] 

[1586] 

[1907] 

[1517] 

[2284] 

[1783] 

[1414] 

[1319] 

[984] 

[2030] 

[441] 

[2529] 

[1683] 

[1520] 

[1230] 

[1537] 

[2449] 
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|—Tips & Tricks 


1410 DATA C9,F5,1F,1F,1P,1F,CD,92,0399 
1420 DATA A3,F1,E6,OF,FE,OA,38,02,03CB 
1430 DATA C6,07,C6,30,C3,5A,BB,2A,03C5 
1440 DATA A0,A6,CD,Ä6,A3,C9,E5,CD,05D7 
1450 DATA 79,EE,E1,C9,7E,23,FE,00,04B0 
1460 DATA C 4 , 5 A,BB,20,F7,C9,43,50,044c 
1470 DATA 43,20,20,20,52,65,63,68,0225 
1480 DATA 65,6E,6a,69,6C,66,65,20,02FB 
1490 DATA 20,20,49,6E,74,65,67,65,029C 
1500 DATA 72,7A,61,68,6C,65,6E,20,0314 
1510 DATA 20,20,28,43,29,20,53,63,OIAA 
1520 DATA 68,61,65,66,66,65,72,20,02F1 
1530 DATA 52,6F,6C,61,6E,64,00,31,029i 
1540 DATA 20,20,5A,61,68,6C,20,75,0264 
1550 DATA 6D,77,61,6E,64,65,6C,6E,0356 
1560 DATA 00,32,20,20,41,64,64,69,01E4 
1570 DATA 74,69,6P,6E,00,33,20,20,0220 
1580 DATA 53,75,62,74,72,61,68,74,0350 
1590 DATA 69,6F,6E,00,34,20,20,40,0207 
1600 DATA 75,6C,74,69,70,6C,69,6B,036E 
1610 DATA 61,74,69,6F,6E,00,35,20,0270 
1620 DATA 20,44,69,76,69,73,69,6F,02F7 
1630 DATA 6E,00,36,20,20,52,65,74,020F 
1640 DATA 75,72,6E,00,31,2E,5A,61,026F 
1650 DATA 6B,6C,20,3A,20,20,20,2E,01BC 
1660 DATA 2E,2E,2E,2E,2E,2E,2E,2E,0170 
1670 DATA 2E,00,32,2E,5A,61,68,6C,021D 
1680 DATA 20,3A,20,20,20,2E,2E,2E,0144 
1690 DATA 2E,2E,2E,2E,2E,2E,2E,00,0142 
1700 DATA 44,45,5A,49,4D,41,4C,20,0226 
1710 DATA 20,20,20,20,20,20,20,20,0100 
1720 DATA 48,45,58,41,44,45,5A,49,0252 
1730 DATA 4D,41,4C,20,20,20,20,20,017A 
1740 DATA 20,20,20,20,20,20,20,20,0100 
1750 DATA 20,20,20,20,20,20,20,42,0122 
1760 DATA 49,4E,41,45,52,00,4D,6F,022B 
1770 DATA 64,75,73,20,20,3A,00,3L,01F7 
1760 DATA 2E,20,5A,61,68,6C,20,20,0210 
1790 DATA 3A,00,32,2E,20,5A,61,66,01DD 
1800 DATA 6C,20,20,3A,00,5F,5F,5P,0203 
1810 DATA 5F,5F,5F,5F,5F,5F,20,20,027A 
1820 DATA 20,20,20,20,20,20,20,20,0100 
1830 DATA 5F,5F,5F,5F,5F,5F,20,20,027A 
1840 DATA 20,20,20,20,20,20,20,20,0100 
1850 DATA 20,20,20,20,20,20,20,5F,0L3F 
1860 DATA 5F,5F,SF,5F,5F,5F,5F,5F,02F8 
1870 DATA 5F,SF,5F,5F,5F,5F,5F,5F,02F8 
1880 DATA 00,45,52,47,45,42,4E,49,01FC 
1890 DATA 53,20,3A,00,3D,3D,3D,3D,01A1 
1900 DATA 3D,3D,3D,3D,3D,20,20,20,0191 
1910 DATA 20,20,20,20,20,20,20,3D,011D 
1920 DATA 3D,3D,3D,3D,3D,20,20,20,0191 
1930 DATA 20,20,20,20,20,20,20,20,0100 
Listing HELP 


[1773] 

[1123] 

[2338] 

[1609] 

[2312] 

[1974] 

[1648] 

[1887] 

[1198] 

[838] 

[1383] 

[1785] 

[592] 

[1685] 

[1362] 

[1786] 

[979 ] 

[1351] 

[1149] 

[1742] 

[884] 

[1430] 

[1501] 

[1418] 

[1464] 

[1530] 

[1689] 

[1387] 

[1783] 

[1180] 

[1516] 

[1337] 

[1524] 

[1516] 

[1583] 

[1786] 

[1290] 

[1262] 

[1174] 

[1779] 

[2546] 

[1516] 

[2546] 

[1516] 

[1587] 

[2171] 

[2171] 

[1199] 

[1251] 

[1894] 

[1369] 

[1894] 

[1516] 


1940 DATA 
1950 DATA 
1960 DATA 
1970 DATA 
1980 DATA 
1990 DATA 
2000 DATA 
2010 DATA 
2020 DATA 
2030 DATA 
2040 DATA 
2050 DATA 
2060 DATA 
2070 DATA 
2080 DATA 
2090 DATA 
2100 DATA 
2110 DATA 
2120 DATA 
2130 DATA 
2140 DATA 
2150 DATA 
2160 DATA 
2170 DATA 
2180 DATA 
2190 DATA 
2200 DATA 
2210 DATA 
2220 DATA 
2230 DATA 
2240 DATA 
2250 DATA 
2260 DATA 
2270 DATA 
2280 DATA 
2290 DATA 
2300 DATA 
2310 DATA 
2320 DATA 
2330 DATA 
2340 DATA 
2350 DATA 
2360 DATA 
2370 DATA 
2380 DATA 
2390 DATA 
2400 DATA 
2410 DATA 
2420 DATA 
2430 DATA 
2440 DATA 
2450 DATA 
2460 DATA 
U8Ör>g HELP 


20 , 20 , 

3D,3D, 

3D,3D, 

5A,41, 

47,52, 

20 , 20 , 

45,42, 

20 , 20 , 

20 , 20 , 

73,73, 

41.20, 
4C,53, 
4E,47, 

20 . 20 , 
20 , 20 , 
20 , 20 , 
20 , 20 , 
20 , 20 , 

43.20, 
20,5A, 
4E,20, 

20 . 20 , 
4C,41, 
20 , 20 , 
20,70, 

53.20, 
45,00, 

49.53, 
4F,53, 

20 . 20 , 
52,4C, 
20 , 20 , 
72,65, 

50.20, 
45,52, 
20,5A, 
4E,20, 

20 . 20 , 
20 , 20 , 
20 , 20 , 

73.73, 

41.20, 

53.54, 
00,70, 

20.73, 

50.20, 
00 , 00 , 
00 , 00 , 
00 , 00 , 
00 , 00 , 
00 , 00 , 
00 , 00 , 
00 , 00 , 


20 , 20 , 20 , 20 , 
3D,3D,3D,3D, 
3D,3D,3D,3D, 
48,40,20,5A, 
4F,53,53,20, 
20 , 20 , 20 , 20 , 
45,52,4C,41, 
20 , 20 , 20 , 20 , 
20,20,20,70, 

20.20.53.20, 
43,20,45,00, 

43.40.45.20, 

41.42.45.20, 

20 . 20 . 20 . 20 , 
20 , 20 , 20 , 20 , 
20 , 20 , 20 , 20 , 

20.70.72.65, 

53.20.50.20, 
45,00,5A,41, 
55,20,4B,4C, 

20 . 20 . 20 . 20 , 

20,55,45,42, 

55.46.20.20, 

20 . 20 . 20 . 20 , 

72,65,73,73, 

50.20.41.20, 

45.52.47.45, 
20,5A,55,20, 

53.20.20.20, 

20.20.55.45, 

41.55.46.20, 

20 .20.20.20, 

73.73.20.20, 

41.20.43.20, 
47,45,42,4E, 
55,20,4B,4C, 

20 . 20 . 20 . 20 , 
20 , 20 , 20 , 20 , 
20 , 20 , 20 , 20 , 
20,20,20,70, 

20.20.53.20, 
43,20,45,00, 

20 . 20 . 20 . 20 , 

20.72.20.65, 
20 , 20 , 20 , 20 , 
41,20,43,20, 
00 , 00 , 00 , 00 , 
00 , 00 , 00 , 00 , 
00 , 00 , 00 , 00 , 
00 , 00 , 00 , 00 , 
00 , 00 , 00 , 00 , 
00 , 00 , 00 , 00 , 
00 , 00 , 00 , 00 , 


3D,3D,013A 
3D,3D,01B8 
3D,00,01AB 
55,20,021E 
20,20,01EE 
20,55,0142 
55,46,0246 
20 , 20,0100 
72,65,01E7 
50,20,0209 
46,41,0190 
45,49,0210 
20,20,0180 
20 , 20,0100 
20 , 20,0100 
20 , 20,0100 
73,73,0280 
41,20,0104 
48,4C,01D7 
45,49,0214 
20,20,0130 
45,52,0103 
20,20,01A8 
20 , 20,0100 
20,20,0280 
43,20,01A7 
42,4E,01F8 
47,52,0224 
20,2D,01A2 
42,45,01A1 
20,20,OIDA 
20,70,0150 
53,20,0270 
45,00,0179 
49,53,024F 
45,49,0214 
20,20,012E 
20 , 20,0100 
20 , 20,0100 
72,65,01E7 
50,20,0209 
52,45,OIAO 
20,3A,0181 
20,73,021A 
53,20,0186 
45,00,0179 
00 , 00,0000 
00 , 00,0000 
00 , 00,0000 
00 , 00,0000 
00 , 00,0000 
00 , 00,0000 
00 , 00,0000 


[1565] 

[2277] 

[2772] 

[2017] 

[1990] 

[1568] 

[1346] 

[1516] 

(1333) 

[1123] 

[1901i 

[1850] 

[1772] 

[1516] 

[1516] 

[1516] 

[1429] 

[1412] 

[1635] 

[1478] 

[1957] 

[1438] 

[1412] 

[1516] 

[1199] 

[1285] 

[1869] 

[975] 

[1501] 

[1661] 

[2085] 

[1698] 

[1700] 

[1452] 

[1135] 

[1478] 

[1769] 

[1516] 

[1516] 

[1333] 

[1123] 

[1591] 

[1371] 

[2050] 

[1169] 

[1452] 

[1003] 

[1003] 

[1003] 

[1003] 

[1003] 

[1003] 

[1003] 


Programm: 

CEUS 

Artikel: 

Beim CEUS... 

464-664-6128 Disk./Kass. 

:Eintrago m ' 

rsx'-Sprgngtabelie 

JP menu 


jo albox 


jp gattma 


jp puttme 


Jp pult 


Einträge ln 'table' der RSX-Befehie 

defm "MEN'' 


defb "u'‘ + *80 


defm "ALERTBO' 


dafb "X"+S80 


defm "6ETTIM" 


defb •£'' + #80 


defm "PUTTIM" 


oefb ’'E''t#80 


defm "QUl' 


defb "T'‘+*80 


•Ass.llstlng der Sa f eh 1 srou ti nen 


; stel 1 1 ein Manue dar 


;4 Paramete r? 

j p m,opm> & 

;wan1 ger? Fehler 


.Parameterzehl rotten 

dec s 

;Paramete r “3 

dec a 





;Parameter retten 


jPerameterzahl nach B 




Id c.O 

menui; Id 1 , {i *+■0} 


;Breita nach C 

;Adraase des 
; 1 atzten Strlngt 
Id h,(1xf1) ; nach HL 

Id a,(h1) iuange de* Strings nach A 
ep c ;größsr al« Breite? 

jp m.menuZ ;nein? dann weiter 

Id c,a ;80nst neue Bre'to 

menu2: Inc ix :IX auf nüchsten Str. 
1 nc IX 

öjnz menul ;We 1 ter 0 l» alle Strlnge 


;Bre t te nach A 
lund eintragen 
iParametor holen 
;Paramaterzah1 holen 
;ParBmetar reitan 
:Paramaterieh 1 retten 
; IX auf Buffer 
;TXT QET WIHDOW 
:Parameterzahl holen 
;W1ndowkoords rotten 

iParemeter retten 
: Parameterzahl retter^ 
;Parameterzahl -2 

ly ;2o1ger auf n. Param. 

;Paramateraahl -l 
;schon 0? sonst nocnmal 
;v-wert holen 
Id (1x+4),ejuna al» 3.Param, setzen 


Id a, c 
1 ö (mlen ) , a 
pOp 1 y 
ROR af 
push Ix 
push af 
Id 1 X,ubgbu f 
call «0069 
pop af 
push hl 
push de 
push ly 
push af 
SBC a 
dec a 

mehu3; 1nc 

Inc 1 y 

dec s 

j p nz,menuS 
Id a. (iy+D) 


Id b I a 

1 d (myanf ) . a 
pop af 
push af 
dec a 


;Y-Wert nach B 
iuhd ale Anfangswert 
;Parameterzanl holen 
,Parameterzahl retten 
jAnzahl der Strings 


dec a 

dec a 
Oec a 
add a,b 
Id (IxfO),a 
Id a,C'y+Z) 

Id (mxanf),a 
Id (1x+6) ,a 
add a.c 
id < 1 xfZ ) , a 
xor a 

la («x+B),b 
Id a, 5 
push 1 X 
ca 11 wopen 
pop I X 
menuA; 

pop af 
pop ly 
dec a 
dec a 
dec a 

Id <manz),a:8ls Menüpunktzahl eint. 
Id c,s ;und Menüpunktzahl nach 8C 


;+Yanf»Yende 
;5.Parameter eintragen 
;X-Wert holen 
.eihtragen (als Xanf) 
;uhd als 2. Parameter 
;Yanf+8relte=kenbe 
•.Als «.Parameter 
;W 1 ndownummer 0 
;a16 J.Parameter 
; 5 Parameter 
, Parameterze 1 ger retteri 
jWindow offnen 
; Parameterzeiger holen 

;Parameterzahl holen 

'.übergabeparemeterzilhler 
; Parameterzahl -3 


Id b,0 
jp menuS 
menuS: 
pueh bc 
call abb93 
push af 
Id a. 1 
call *bb90 
Id hl .er 1f 
Id a, 2 
call pr 1 r>t 
pop af 
call «obSO 


:CRLF überepringen 

jZihler retten 
j TXT GET PEN 
;PEN retten 
; PEN 1 
; setzen 
;CRLF nach HL 
;2 Zeichen 
;CPLF ausgeben 
; ml ten Pen hol er' 
;und setzen 
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Listinq—i 


;HL auf Strlngaeskr. 


pep Pc ;Zä^lar wieder >ioign 

frier>u6: push ly ; Pt r am , *Sh 1 e r •retten 
ado 1 y,bc iZe^ger auf ersten Param 
add t y ■ bc 
dec ly 
dec i y 
id 1 , < i y-fO) 

Id n , (1 y»l > 

Id a,(h») 

1 nc hl 
pusb bc 
cal 1 orint 
pop bc 
pop 1 y 
dec c 

ip n?, manuS 


;Strlng1ärge nach A 
;HL auf Strlngadr. 
.Zähler retten 
;Str:n9 ausgeben 
; Zähle r holen 
jZeiger wieder holen 
iZBhler -1 
{weiter P'S 0 
xor B {Menüpunktflag turückaetzen 
1d < mpoin t ) . a 

caM ebda iSCR char POaiTlOh 

id a,D { Zs1chenbre! te nach A 

cp 4 {Mode 0? 

Jp nz.menu? leonst weiter 

dec a {Exponent -1 

menuZ: Id (zor),a {Exponent setzen 

call mint {Event elnhbngen 

call curaor {Cursorabfrage eufrufen 
{Event aushängen 
.Window schlteOen 
alte windowkoords holen 


ca 11 mde1 
cal1 WClose 
pop de 
pop hl 
call «bbee 
pop 1 X 


{ rxT WIN ENABLE 
; Pe ramoterzäh1 er holen 
Id Bi(mpointl {Menüpunktflag holen 
id l|(ix+0) : Parameterad resse ho'en 
Id h . i l x + 1 ) ; (emen*) 

id (hl),a {Param. flag zurückgebon 


I ret 

mooint;defs 1 
ml an: defs 1 
manz : defs 1 


{und fer 1 1 ( 


m X a n f: defs 
myan f; defs 
mxerd; dt f s 
zbr: defs l 
mOuff; defs 
möuff 1 {defs 


crif: defw crlfl {Zeiger auf CRLF 

crlfi; oefb tOO.eOA jCRuF 


mint: 

Id hl,mbuf f1 
Id b.l31 
Id da,mcurs 
cal1 *öcef 
Id bc,2 
Id de,2 
Id hl.mbuff 
call «üceS 
e 1 

Jp *bd07 


{Menü-Event e'nhängen 
; Event-Buffer nach HU 
{Event-Class nacn 0 
; Eventroutlne nach 0£ 
{KL INIT EVENT 
Laufzeit und Startwert 
{nach ML und DE 
{HL auf Evontbuffer 
;KL AOC TICKER 
.Interrupts zulassen 
,KL EVENT ENABUE 


mdel : 

Id hl.mbuf f 
Jo Sbcec 


{Menü-Event aushängen 
{Event-Buffer nach ML 
;KL DEL TICKER 


mcurs. 

Id hl 
srI h 
rr 1 
Sri h 
rr 1 

Id a,(zbr) 
id b, B 
mcurj: srl 
djnz mcur 2 
ine 1 

push hl 
pop bc 
id ds,(v 2 ) 

Id hl,399 
sbc h1,de 
srl h 
rr 1 
srl 1 
srl 1 
srl 1 
1 nc 1 

Id a,(mxanf) 

Id b, a 
Id a, c 
sub b 

jp m.mcext 
Id b,a 
Id s,(ml an ) 
cp b 

Jp m.mcext 
Id a,(myan f) 

Id b, s 
Id a,l 
sub b 

]p m.mcext 
Id b, e 
1 d a,(manz i 
dac a 
cp b 

jp m.mcext 
1 d a,b ;sonst 
1 nc a 

Id hl.mpolnt 


für MENU 
nach ML 
X-Wert\4 


{Exponent nach 8 

{X-Wert\2 
ter bis Exponent 0 
{x-Wer t + 1 
;X-Wert nach C 

; V-Wo rt nach OE 
;ymax nach HL 

{YaYmax-V 

;Y-Wart\l6 


: fl 

{Xanf nach 8 


; Xpos nach A 
{-Xan f 

;xpc8<xanf? dann zurück 
;Xpos-Xanf nacn 8 
{Breite nach A 
; <=Xpos-Xanf? 
{dann zurück 
{Yanf nach ß 

{Ypos nach A 
{-Van f 

{YposiYanf? dann zurück 
{Vpos-vanf nach B 
{Anzahl nach A 
; und -1 
{ <=Yp08-yanf? 
{dann zurück 

Ypos-VanfxNummer.,. 

...des Menüpunktes -1 
,ML auf Menüpurtkt 


nop{Interruptroutine 
(vl) {X-Wert 


1 

{ wei 


cp t hl) ;g 1 ei ch? 
rot z {dann zurück 
push af {sonst neuen Punkt retten 


Id a.(mpoint) 
call «bdl9 
or a 

cal1 nzI1nvlne 
poo af 

1 d (mpoint],a 
1 nvlne.Id 1 ,a 
dec 1 

Id aI(myanf) 
add a, 1 
Id 1 ,a 
dec 1 

Id s,(mxanf) 

Id h, a 
dec h 

Id a . (mIen) 

Inc a ;fl 
Id b,sff { 
Id c,0 

Inv1n 1 :push hl 
push bc 
push af 
cal1 Sbcäa 
pop af 
pop bc 
pop hl 
1 nc h 
dec a 

J p nz. 1 nv1n1 
ret 


{alten Punkt nach A 
,MC WAir FRAME FLY 
{alter Punkt *0? 
{Salkan ausblanden 
{neuen Punkt holen 
{Nummer eintragen 
{Zelle nach L 
{Zelle -1 
{Anfang nacn 4 
{Anfang des Windows 
{nach 1 
{und -I 
;Spalte=Xsnf nach n 

;xanf-l 
{Breite nach A 


Parben zum Invertiaren 
{nach 8 und C 
;KOOrdS retten 
{Farben retten 
{übrige Breite rotten 
{SCR CHAB INVERT 
{Breite holen 
;Farben holen 
{Koords hoien 
{Spalte +1 
{Breite -1 
{weiter bis SpaltesO 
{und zurück 


mcext: id a , (mpolnt);Menüpunkt holen 
or a ;x 0 ? 

call rtz,i'ivlr>e {Balken ausblenden 

xor a {kein Menüpunkt 

Id (mpoint),a {setzen 

rat {undzurück 


albox: {erstellt eine Alercbox 

cp 4 

{4 Parameter? 

J p m,opm1s 

{wen'ger? Fehler! 

Cp 10 { 

Mehr als 9 Parameter? 

jo p.1mparg 

:Fehl er 

dec a 

;Parameterzahl-3 

dec a 
dec a 

; X Ze <1enzah1 

push af 

1 retten 

call *bcI7 

;SCR CMAR LIMITS 

1 nc ö 

{Rechter Rand +1 

$ r 1 b 

{und ha 1oe Breite 

pop af 

: Ze1’en zahl holen 

push af 

{und wieder retten 

Id c , b 

{halbe Breite nach c 

Id b.a 

{Zeilenzahl nach S 

a 1 ö 0 xl{ 1 d l|(1x+0) :Str1ngdeskr, ml 
I d h,(1xfl) 

Id a.(hl) 

{Strlnglänge nach A 

dec a 

;-i 

cp c 

{>e halbe Sraita? 

jp o.impsrg 

; dann Fehler 

1nc Ix {sonst auf näensten String 

inc Ix 

djnz alboxi { 

bis alle Zeilen durch 

pop af 

{Zeilenzahl holen 

push af 

{und wieder retten 

push i X 

{Parameter retten 

Id Ix.ubgbuf 

;bergabobuffer nach x 

Id b, c 

{halbe Breite nach B 

srl b 

{und du rch 2 

Inc b 

;und +1 

Id (1x+S),b 

:=xanf 

Id d, a 

{Zeilenzahl nach 0 

id a, c 

{Bre1te nach A 

add B.b 

{Breite +Xan f 

dec a 

{-1 

Id <1xf2) , a 

{sXende 

Id {lx+0 ),16 

;Yende=16 

Id a. 11 

{Yanfall 

euC d 

{-Zellenzah1 

id (ix+4 ) , a 

{eint rag en 

cal1 sbb69 

{TXT GET WINDOW 

pop 1 y 
pop af 
push hl 

{Stack aufräumen 

push de 

{Windowkoords retten 

push af {und 
push 1y 

Stack wieder aufbauen 

xor a 

; W i noowr.ume r 0 

Id (1 xf 6),a 

{eln tragen 

Id a,5 

;5 Parameter 

push bc 

{halbe Breite retten 

cal1 wopen 

{Fenster öffnen 

pop bc 

{halbe Breite holen 

pop 1 y 

;Parameter holen 

pop af 

{Zei1enzähIer holen 

id b, a 

{Ze11enzähier nach B 

push iy 

{Pa-ameCer retten 

alOOx2{puah bc 

;0C retten 

dec ly {Zeige 
dec 1 y 

r auf nächsten String 

call Sbb93 

{TXT GET PEN 

puah af 

;Pen retten 

Id a , 1 

; Pen 1 

call »bbSO 

{setzen 

Id hl.crif 

{ CRlF 


Id a.2 
ca '1 print 
Id 1 ,(ly+0) 

Id h,<ly+i) 

Id a , c 
sub (hl) 
srl a 
Id b,32 
or a 

call nz.chera 
Id a,(hl) 

1 nc hl 
call print 
pop a f 
call »bD90 
OOP bc 
dJnz alboxj 
pop 1 y 


; ausgeban 
I Stringdaskr. nach hl 

{halbe Breite nach A 
; -Str 1 ng1änge 
;/ 2 . . . 

.... Leerzeichen , . . 

;0 Stück? 
{Sonst ...ausgeben 
{Stringlange nach A 
{HL auf String 
{Und String ausgeben 
{PEN ho 1 an 
;und wieder setzen 
{BC holen 
{und weiter a'le Zeller 
{Perameter ho'en 


1 nc ly 
ine ly 
Id i x.ubgbuf 
Id B.(ly+ 2 l 
Id (1x+0],a 
Id <lxf 2 ] 

Id <1x+3> 

Id {1 xf4) .240 
Id {1 xfS) .0 
Id a, 3 
cal 1 1 eon 
Id 


{Rückgaoepa ram.überspringen 


207 

0 


;IX auf libe rgehabu f f e ' 
{1. Iconnummer nolen 
{und sintragen 
; ''=207 

: x= 2*0 


{3 Paramater 
; 1. Icon aarste1 len 
IX,ubgbuf { übengababuff er nach IX 


Id a,(ly+ 0 ) 

{ 2 .1 connummer 

Id <1x+0).a 

{eintragen 

Id <1xf2).207 

; Y3207 

Id (1x+4).96 

;X=352 

Id (1x+5),l 

Id a , 3 

;3 Parameter 

call ieon 

;2. Icon darste'len 

1d ix,ubgbuf 

{IX auf Übergabebuffer 

al box3 :1d a,1 

{1 Parameter 

cal 1 getic 

; Icon aOfragen 

1 d a . ( i x+ 0 ) 

{Icon nach A 

cp (tyfO) 

: “2. Icon? 

J p z , a 1 box 4 

{dann wei t er 

Op ( 1 yf2 > 

{sonst; 1 .Icon? 

jp nz,a1bOx3 

{nein? dann nochmal 

al box4;dec 1 y 

; IY auf Rückgabeoaram. 

dec iy 

Id 1 . (ly) 

:Parameteradr. nach hl 

Id h,(1y+i) 

Id (hl>,a 

{und Iconnr, eintragan 

Id a,(maxmsn);Anz.der dargest.Icons 

Oec a 

;-2 

dec a 

Id (maxmen),a 

{ eintragen 

pop de {W 1 ndowkoordinat en holen 

pop hl 
call «bb66 

; TXT WIN ENABLE 

j p wclose 

{und Window schließen 

Int: {hängt den Event für die 

{Uhr ein 

1Ö hl,buffl;HL a. Eventblock-Buffer 

1d b.l31 

{Eventtyp nach B 

Id de,clock 

{DE auf Eventroutine 

cal1 äbcef 

,KL INIT EVENT 

Id hl,buffen 

{HL auf Eventbuffer 

Id bc,S0 

{Startverzögerong und 

10 de,50 

{Laufzeit auf 1 Sek. 

cal1 *bee9 

;KL AOD TICKER 

ei 

{Interrupts zulassen 

call #bd07 

:KL EVENT ENABLE 

ret 

{und zurück. 

bufferrdefs 6 
buff1: defs 7 

clock; 1d hl,time ;Hl auf Zelt 

1d a, (hl) 

:2. Sekundenbyte 

1 nc a 

; e rhöhan 

Id (hl} ,a 

{und zurüchschralben 

cp 10 

i=lO? 

rot hz 

{nein? dann Fertig 

xor B 

{sonst 2, Sekundenbyte 

Id (hl).a 

{wO setzen 

1 nc hl 

:1. Sekundenbyte 

Id a.(hl) 

{nach A 

1 nc a 

; + l 

Id (hl ),B 

cp 6 

{ >S? 

rat nz 
xor a 

Id (hl),a 

1 nc hl 

;2. M1 nutenbyte 

Id e.(hl) 

1 nc B 

Id (h1),a 
cp 10 

: >9 

ret nz 

xor a 

Id (hl),a 

Inc hl 

:1.Mlnutenbyte 

Id a,(hl) 
inc a 

Id (hl >.a 
cp 6 

; >5? 

ret nz 
xor a 

10 (hl > .a 

1 nc hl 

;2. Stundanoyte 
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r~Usting 


10 a.(hl) 

1 nc 8 
10 {til ) ,a 
cp 8 

jp n?,clo8 

1 nc hl ;sonat 

10 a, 2 

cp (hl> 

jp rz.clot 

xo r a 

10 (hl},a 

Oec hl ;lh 

Id (hl),a 

rat 

olo2: cp 10 
rot rti 
xo r s 
10 (h 1 ).a 
Inc hl 
10 a.(hl) 

1 nc a 
10 (hl),a 
rot 

clot: oec hl ;nu 
Id a,(hl) 
jp clo2 

t1mo: daf» 6 


; < >4? 
;Oanh we1tar 
er-ates Stundonbyt« 

i-2? 

;nefr>? Stuodoh OX, 
;90nBt 0 Uhr 
i eintraean 
boloe Stundenbytea 

:und fertig 
;2. StundonbyteiO? 


; 1. Stundohby to 
i + 1 

; und Fertig 
auf 2. Stuhdonbyte 
: nach A 
juno weiter 


qui t' 

call ibcc8 
Id de.«0040 
Id hl,#abff 
jp «bccb 


;Quit-Rout1ne 
iXU CHOK6 OFF 
,Beginn des RAM 
;Ehde des RAM 
■,K\. «OM WALK 


gettme; 
cp 1 

j p m,opm1s 
j p hz,imparg 
10 1 , (i x+ 0 );Paramoterscring nach ML 
Id h.(ix+l) 

Id a,(hl) 1Uähg« 

Id (hl).8 i=0 Zeichen (HH;MM:S8) 

cp S :war »Chon >«6? 

jp D.gettmS idann weiter 


jgibt die Zeit zurücK 
:1 Pa rametar? 


push hl ; 

10 B,8 
rst #16 
dafw gatstr 
pdp hl 
inc hl 
1d (hl ),e 
inc hl 
10 (hl) ,0 
get tmO ;Id hl, 
10 bc ,5 
add hl ,bc 
Id b.2 

gtme 2 : 10 c, < 
gtmel: 10 a,( 

add a ,48 ; i 

10 (de) , a ; 
inc de ; 

dec hl 
dec c 

jp oz.gtn'Bl 
Id a .Se 
id (da) ,a 
inc de 
Ojnz gtmeZ 
Id a, (hl ) 
add a,4B 

10 (de) I 8 

1 nc de 
dec h 1 
Id a.(hl) 
add a,48 
Id ( de ) , a 
rat 

gettmS;inc hl 
Id a , (ML) 
ific hl 
Id 6,(hl) 
jp gattmO 
getstrrdofw * 
tJefb »fd i 

puttme: 

eo 1 


sonst Oeskriptor retten 
ja Byte Platz 
;voni Betriebssystem 
i an fd roern 
:Das kr. holen 
;HL auf Adresse 
;neue St r ingadr. 

; e1 nt ragen 


time 


:ML auf Zeit 


iuhd auf erste Ziffer 
,2 mal wleoerholen 
i 2 Z 1 f farn 
hl ) :Z1f fa r holen 

h ASCIl-ZeiChen wandeln 
und in String eiiitragen 
DE auf nächstes Zeichen 
:ML auf nächste Ziffer 
:c-l 

;= 0 ? sonst nochmal 

jeiotragcn 
0£ auf nächstes Zeichen 
; a 11 es nochma1 
iSekunden holen, 
; wände 1n , 
;und eintragen 


;fertig 1 
;HL auf Stringadr. 
;Stringadr nach OE 


;und weiter 
fc41 :464;fcl9 864:fc4i 
Resarv, A Byte f.String 

;Ste11t die Uhr 
;1 Paramete r? 



Jp n), oomi S 


Jp nz 1 imparg 


Id 1,(1x+0) ; 

Stringdeskr. nach mL 

Id h,(iK+1) 


Id a.(hl ) 

;St n ng1änge 

cp 0 1 =8? 


j p n*,1mparg 

isonat Fehler 

i rtC hl 

:ML auf Stringadr. 

Id B1 (hl ) 

;Str1ngedr, nach DE 

1 nc hl 


Id d,(hl> 


dec dB 

tOE vor String 

1d hl,time 

;HL auf Zeit 

Id be,5 


sdo hi.bc 

;ML auf erste Ziffer 

Id b, 3 

; 3 mal (H,M,S) 

puttml:1d c,2 

:2 Ziffern 

inc de >1 

Zeichen Überspringen 

QüttmZ;1d a,(de 

) iZiffer holen 

fiub 48 De7lma1zah] vandain 

1 p m,imparg 

;<0? dann keine Zahl 

cp 1.0 

, >9? 

jp p,Imparg 

idann auch keine Zahl 

Id (hl),a 

;Ziffer elritragen 

dec h 1 

; nächste Ziffer 

i nc de 

;nächetes Zeichen 

dec c 

[Zähler -1 

Jp nz.puttma 

;a0? eonst nochmal 

djnz puttml 

inochmal (für h,m,S) 

rot 

; Fert1g! 


;Naoh POTCUR muss vor Id a,<»moae) 
jeingofügt werden; 

10 ai»c9 : RET ln AKKu 

Id (mcursl.a ;unö MCURS sperren 


;Naeh PUTCUO muss nach Id (amodel.e 
leingefügt werden; 

xor a ;NOP nach A 

Id (moiira),a ;und MCURS freigeben 


;In MPATCH müB der 'RET'-Befehl 
lersetzt werden durch; 
jp int 


Name: BANNER.BAS 

Computer: PCW 

Sprache: Mallard-Basic 


< 1 > 10 ' 

<0>20 •. SANNER-SCHRIFT 

< 3> 30 ’ 

< 4> 40 ' (wr) 1990 by H.Tandler 

< 5> 50 ' 

<51> 60 - - 

< 7> 70 ' 

< 8> 80 ■ Initialisierung. - Bildschirm 

< 9> 90 • 

<33p 100 eBcS=CHR$<27) 

< 7> 110 clBS’*e8C$+‘’E’'+esc$+"H" 

<49> 120 DBF FmoC$<z,S)*e8cS+'’Y"fCHR$(31 + 2)+CHR$(31+s) 
<B9> 130 DBF FNwinS(oz,Is,uz, rs )«e8C$+"X"+CHR$ ( 31+02)+C 
HR$(31+lB)+CHR$(31+uz)+CHRS(31+rB) 

<21> 140 PRINT FNwinS(l,l,6,90) 

<10> 150 lw$-"M'‘ 

<30> 160 ’ 

<32> 170 ' Initialisierung. - Drucker 

<34? 180 ' 

<16> 190 DBF FNz© 3 e$(n)“escS+"C"+CHR$(n). ' Zeilen pro 
Seite , , 

<24> 200 DEF FNleze5(n)«eBcS + "N''+CHRS(n). ‘ Leere Zeile 
n am Seitenende 

<93> 210 zei.6S»eBcS+"2". ' 6 Zeilen - Zoll 
<23> 220 zei.OS®escS+"l" . ’ 10 Zeilen - Zoll 
<65> 230 endloES-e8C$+"c”. ’ Endlospapier 
<42> 240 einblatt$-e8c$+"$*. ' Einzelblatt 
<26> 250 picaS-CKR$(18). ' Schrift PICA 
<58> 260 pendon$-esc$4"9': pendof fS^eBcSfö“ • ' Papier 
ende, ein - aus 

<26> 270 default$<»eac$+’'d’'. •. Drucker-Standardeinstell 
ung 

<47> 280 ptr.resetS-escS+'e". ‘ Drucker RESET 

< 9> 290 WIDTH LPRINT 255:OPTION NOT TAB 

<32> 300 LPRINT picaS+FNzeseS(120)+FNleze$(0)+zei.0$+en 
dlos?+pendonS+default$+ptr.reset$+CHR$(13); 

<96> 310 ON ERROR GOTO 3100 
<24> 320 ' 

<26> 330 ' Titelbild 
<28> 340 ' 

<95> 350 PRINT clsS 

<18> 360 PRINT FNlocS(:,29);CHRS(150);STRINGS(3i,154),-C 
HR$<1S6) 


<89> 370 PRINT TAB( 29 ) ;CHR$( 149); . BANNER-SCH 
RIFT. ■;CHR$(149) 

<44> 380 PRINT TAB(29)?CKR$(149);SPC(31);CKR$(149) 

<39> 390 PRINT TAe(29);CHR$(149);- (wr) 1990 by Herbert 
Tandler. ";CHR$(149) 

<70> 400 PRINT TAB(29);CHRS(147);STRING$<31,154);CHR$(1 
53) 

<20> 410 PRINT FNwinS(7fl»32,90);cl8$ 

<25> 420 ' 

<27> 430 ' Daten einiesen 

«:29> 440 ' ^ , w i 

<85> 450 PRINT FNloc$(10,26 ) 'Bitte etwas Geduld, ich le 
se Daten..."; 

<87> 460 READ hoehe,breite,nameS 

<24> 470 GOSUB 3060 ’ Felder dimensionieren 

<33> 480 FOR i*l TO 94 

< 9> 490 FOR j“l TO breite 

<94> 500 READ a$:dat (i , j >-^VAL(" SiK">3$) 

<40> 510 NEXT 
<42> 520 NEXT 
<28> 530 ' 

<30> 540 ' Menue 
<32> 550 ' 

<28> 560 IF hoehe-0 THEN 1530 

< 2> 570 PRINT clsS 

< 5> 580 PRINT FNloc$(4,29)?"1 <-* Text - Bannerschrift 

<67» 590 PRINT PNloc$(6,29>;"2 <-=■ Text - Grafikdruck' 

< Q> 600 PRINT FNloc$(a,29);’'3 <»» Zeichen Editor" 

<13> 610 PRINT FNloc$(ll,29);"4 Programm beenden" 
<66> 620 PRINT FNloc$(14,29);“Bitte wählen : “J 

<71> 630 aS="":aS“INKBYS:IF aS-"" THEN 630 
<64> 640 ON INSTR("1234",aS) GOTO 680,1030,1530,1470:00 
TO 630 
<33> 650 ' 

<35> 660 • Text - Banner 
<37> 670 • 

< 5> 680 PRINT ClsS 

<96> 690 homax*FIX (80/hoehe) 

<70> 700 PRINT FNloc$(5,2)“Zeichenhöhe.. { 1-";USING"#« 
)“;homax;:INPUT" ",zho 
<30> 710 IF zho<l OR zho>homax THEN 560 
<24> 720 PRINT FNlocS(7,2);:INPUT"Zeichenbreite { 1 -. 

) ",zbr 

< 3> 730 IF zbr<l THEN 560 

<49> 740 PRINT FNlocS(9, 2 );:L1NB INPUT'Text : “,textS 
■«:B9> 750 IF textS“’”' THEN 560 

<35> 760 PRINT FNlocS(11,2)"Textausgabe (L)inksbUndig. 

(Z)entriert. (R)echtsbUndig 
<55> 770 a$«“’':aS-UPPFR$<INKEy$> 

<64> 780 IF a$<>“L"AND aS<>"R" AND aS<>"Z" THEN 770 
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Listinq —\ 


<34> 
<35> 
<28> 
<29> 
<31> 
<33> 
<43> 
<73> 
<25> 
<32> 
<13> 
<53> 
< 1 > 
< 11 > 
<35> 

<50> 

<35> 

<54> 

<56> 

<58> 

<25> 

<83> 

< 86 > 

<89> 

<14> 

<92> 

<90> 

< 96 > 

<58> 

<58> 

<51> 

<87> 

<83> 

<92> 

< 6 > 
<96> 
<38> 

< 4> 

< 7> 
< 10 > 
<67> 
<74> 
<29> 


790 rand“0 

800 IF a$»'’Z” THEN rand-FIX( {80-hoehe*zho)/2) 

810 IF a$-"R"THEN rand-BO-zho«hoehe 
820 ' 

830 • Text drucken 
840 ■ 

850 LPRINT zei.0$; 

860 FOR i=*l TO LEN(t©xtS) 

870 a”ASC(MID$(textS,i, 1)):w-a-32 
880 IF a<32 OR a>l26 THEN a=32!W»0 
890 FOR j«l TO breite 
900 FOR k-1 TO zbr 
910 LPRINT TA8(rand); 

920 FOR bit»0 TO hoehe-1 

930 IF dat(w,j)ANO 2‘bit THEN LPRINT STRINGS(zho,a 
); ELSE LPRINT SPACES{zho); 

940 NEXT 
950 LPRINT 
960 HEXT 
970 NEXT 
980 NEXT 
990 GOTO 560 
1000 ■ 

1010 ■ Text - Grafik 
1020 ' 

1030 PRINT cl8$ 

1040 PRINT FNloc$<2,2)"Zetchenab8tand ( 0 -";breit 
€?") •; : INPUT zab 

1050 IF zab<0 OR zab>breite THEN S60 
1060 brmax“FIX(25S/{breite+zab)) 

1070 PRINT FNloc$(4,2)'Zeicherjbreite. ( 1 -■';brmax 
;"> ";:INPUT zbr 

1080 IF zbr<l OR zbr>brniax THEN 560 

1090 PRINT FNlocS( 6,2) "Zeichenhöhe.. ( 1,'2,4,8 ) ' 

;:INPUT zho 

1100 IF Zhool AND zho<>2 AND Zho<> 4 AND zho<>8 T 
HBN 560 

1110 nz»*FIX( 960/(breite*zbr+zab)) rgraf S*'eacS+"L"+C 
HR?(breite*zbr+zab)+CHR$ ( 0) 

1120 PRINT FNloc${9,2)“Maximal “nz” Zeichen pro Ze 
ile...“ 

1130 PRINT FNlocS(12,2)STRING$(nz, ’=“ ) 

1140 PRINT FNloc$(U,2); :LINB INPUT •"’.text? 

1150 IF text?“"“ OR LEN(text?)>n 2 THEN 560 
1160 ' 

1170 ' Text drucken 
1180 ' 

1190 loop«l*zho : IF hoehe>8 THEN loop«2*zho 
1200 LPRINT e8C$+"A"+CHR$(B); 

1210 b^hoehe 


<14> 

<42> 

<76> 

<23> 

<46> 

<13> 

<15> 

<17> 

<37> 

<97> 

<90> 

<38> 

< 0 > 

< 4> 
<4B> 
< 10 > 
<97> 

<16> 

<90> 

<32> 

<96> 

<47> 

< 4> 

< 7> 
< 10 > 
<61> 
<56> 

< 2 > 
<9 3> 
<96> 
< 0 > 
<24> 
< 21 > 

< 0 > 

<52> 

<34> 

<17> 


1220 FOR i=l TO loop 
1230 a»b-l5b-=b-l-INT(7/2ho) 

1240 IF b<0 THEN b-0 
1250 FOR j»I TO LEN(text?) 

1260 z-ASC(MIDS{text$,j,l))-32 

1270 IF Z<0 OR z>94 THEN z»0 

1280 FOR ii»l TO br©ite:byte(ii)“0;NEXT 

1290 IF Z»0 THEN 1380 

1300 bit»7 

1310 FOR c“a TO b STEP-1 
1320 FOR k=l TO breite 

1330 IF Ioop=l AND zho«l THEN byte(k)*=dat{z,k) :GOT 
O 1350 

1340 IF dat(z,k)AND 2*c THEN FOR d-bit-zho+l TO bi 

t:byte(k)«byte(k)+2*d!NEXT 

1350 NEXT 

1360 bit*bit-zho 

1370 NEXT 

1380 LPRINT graf$;:FOR e=l TO breite:LPRINT STRING 
S(zbr,bytB(e)); sNEXT 

1390 IF zab THEN LPRINT STRlNGS(zab, 0 ); 

1400 NEXT 
1410 LPRINT 
1420 NEXT 
1430 GOTO 560 
1440 • 

1450 ■ Programm beenden 
1460 ' 

1470 PRINT FNwinS(l,l,32,90);cls$ 

1480 LPRINT picaS+FNzeBeS(70)+FNleze$(3)*zei.6$+ei 
nblatt$+pendoffS+de£aultS+ptr.re8etS+CHR?(13); 

1490 END 
1500 ■ 

ISIO • Editor 
1520 ' 

1530 PRINT cls? 

1540 bef$-CHR$(1)+CHR$(6)+CHRS(30)+CHR$(31)+CHR?(1 

3) +CHR$(22)+CHR$(28)+CHRS(B)+CHRS(23)+CHR$(27) 

1550 PRINT FNlocS(l,I0);CHRS(150)STRING${breite,lS 

4) ;CHRS(156) 

1560 FOR i*i TO hoehe 

1570 PRINT FNloc$(1+i,10);CHRS(149)STRING$(breite, 
32);CHR$(149) 

1580 NEXT 


<34> 1590 PRINT FNloc?(2+hoehe,10)CHRS(147);STRING?(bre 
ite,154)CHR?(153) 


Zeichen editieren" 
Zeicheneatz Speicher 

Zeicheneatz laden“ 
Neuen Zeicheneatz er 


<81> 1600 PRINT FNloc$(20r5);"(+].. - Punkt setzen" 

<11> 1610 PRINT TAB(5)'{-].. - Punkt löschen" 

■e26> 1620 PRINT TAB(5)“ENTER - Zeiienanfang" 

<28> 1630 PRINT TAB(S)"COPY. - Zeichen kopieren“ 

<97> 1640 PRINT TAB(5)“CAN.. - Abbruch“ 

<34> 1650 PRINT TAB(5)"EXIT. - Maske verlassen" 

<45> 1660 PRINT FNloc?(2,40)üSING"Höhe t ###";hoehe: 
<93> 1670 PRINT ÜSING".. Breite : ###";breite; 

<93> 1680 PRINT“., "name? 

<e5> 1690 PRINT FNloc?(5,40)"l 
<38> 1700 PRINT FNloc?(7,40)"2 
n" 

< 3> 1710 PRINT PNloc$(8,40)"3 

< 2> 1720 PRINT FNloc$(9,40)“4 

stellen" 

<64> 1730 PRINT FNlocS(ll,40)“5 <■*» Menue" 

<10> 1740 PRINT PNloc$(12,40)"6 <»* Programm beenden" 
<92> 1750 PRINT FNloc?(14,40);“Bitte wählen 
<76> 1760 aS="";a$-INKEY$:IF a?-“'' THEN 1760 
<87> 1770 ON INSTRC'123456“,a$)GOTO 1810,2380,2680,2580 
,560,1470:GOTO 1760 
<22> 1780 - 

<25> 1790 ' Zeichen editieren 

< 0> 1800 ' 

<44> 1810 IF hoehe»0 THEN 1530 

<98> 1820 PRINT FNloc?(16,40);:LINE INPUT'Zeichen (ASC 
33-126) ",z? 

<56> 1830 IF zS<“!" OR z$>"/3" THEN 1530 
<43 j» 1840 Z-ASC(z$)-32 

<3l> 1850 FOR i=l TO breite:dat(0,i)»dat(z,i):NEXT 
<58> 1860 FOR i-1 TO hoehe 

< 6> 1870 FOR j»l TO breite 

<51> 1880 IF dat(0,j)AND 2‘(hoehe-i) THEN a$®"#“: ELSE 
a$B" • 

<75> 1890 PRINT FNloc?{1+i,10+j)aS; 

<33> 1900 NEXT:NEXT 

<52> 1910 Zeile“!:spalte-liGOTO 2060 

< 8> 1920 ' 

<ll> 1930 ' Cursor Steuerung 
<14> 1940 ' 

<14> 1950 a?“"“:a$*=INKEYS:IF a$“"" THEN 1950 
<41> 1960 ON INSTR(bef?,a?) GOTO 1970,1990,2010,2030,20 
SO,2110,2160,2210,2250,2340;GOTO 1950 
<76> 1970 IF 8palte>l THEN spalte“8palte-l 
<24> 1980 GOTO 2060 

<48> 1990 IF spalte<breite THEN spalte-spalte+l 
<82> 2000 GOTO 2060 

<48> 2010 IF zeile<hoehe THEN zeile=zeile+l 
•ca8> 2020 GOTO 2060 

<18> 2030 IF zeile>l THEN zeile“zelle-l 

<94> 2040 GOTO 2060 

<92> 2050 8palte=l;G0T0 2010 

<44> 2060 PRINT FNloc?{18,10);USING“Z “ ##";zeile;:PRIN 
T USING".. S “ «#";spalte 

<46> 2070 PRINT FNloc?(1+zeile,lO+spalte);:GOTO 1950 

< 9> 2080 • 

<12> 2090 ■ Punkt setzen 
< 86 > 2100 ■ 

<47> 2110 a$«''#":dat(0,spalte)“dat{0,spalte) OR 2'(hoeh 
e-zeile) 

<16> 2120 GOTO 2170 
<95> 2130 • 

<98> 2140 ' Punkt loeschen 

< 2> 2150 ' 

< 1> 2160 IF dat(0,Bpalte)AND 2"(hoehe-zeile) THEN a?=” 

":dat(0,Bpalte)“dat(0,spalte) - 2'(hoehe-zeile) 

< 1> 2170 PRINT FNlocS(l+zeile,10+spalteia$::GOTO 1990 
<H> 2180 ' 

<14> 2190 ' Abbruch 
<B8> 2200 ■ 

<61> 2210 FOR i*l TO breite:dat(0,i)“0:NEXT:GOTO 1530 
<94> 2220 • 

<97> 2230 ■ Zeichen kopieren 

< 1> 2240 ■ 

<68> 2250 PRINT FNloc?(17,40);;LINE INPUT"Zeichen kopie 
ren (ASC 32-126) ",zz$ 

<15> 2260 IF zz?«" " OR zzS>"y3" THEN 2060 
<22> 2270 zz»ASC(zz?)-32 
<87> 2280 FOR i»l TO breite 

<14> 2290 IF zz“0 THEN dat (0,i)“0. ELSE dat(0,i)“dat(z 
z,i) 

<83> 2300 NEXT:GOTO 1860 
<93> 2310 ' 

<96> 2320 ■ Zeichen Übernehmen 

< 0> 2330 • 

<22> 2340 FOR i»l TO breite:dat(z,i)“dat(0,i);dat(0,i) = 
0:NEXT:GOTO 1530 

< 6> 2350 ‘ 

< 9> 2360 ' Zeichensatz speichern 
<12> 2370 ■ 

<56> 2390 IF hoehe“0 THEN 1530 

<46> 2390 PRINT cls?;“ DATEN SPEICHERN" 

< 5> 2400 GOSUB 2860:IF ret“0 THEN 1530 
<71> 2410 znr“10000 

<84;» 2420 OPEN "0", #1,name? 
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I—Listing 


< 6> 2430 PRINT # 1 , znr; ''DATA"+STRS (hoehe) + ", "+STRS(brei 

t©)+","+name$ 

<83> 2440 FOR i-1 TO 94 

<32> 2450 PRINT FNloc$(25, i0)"Zeichen : ’'CHRS(32+l)‘ } 

<62> 2460 aS=“‘ 

<97> 2470 znr«znr+10:PRINT #l,znr;"DATA 

< 2> 2480 FOR j-I TO breite 

*:86> 2490 aS-aS+HEXS (dat( i , j ), 2) " 

<93> 2500 NEXT 

<18> 2510 PRINT #l,LEFTS(a$,LEN(a$)-l) 

< 0> 2520 NEXT 
<24> 2530 CLOSE #1 
<15> 2540 GOTO 1530 
<10> 2550 ’ 

<13> 2560 ’ Neuer Zeicheneatz 
<16> 2570 ■ 

<12> 2580 IF hoehe THEN GOSUB 2780:1F ret«0 THEN 1530 
<43> 2590 PRINT cls$ 

<60> 2600 PRINT FNlocS(2,5);:INPUT" Zeichenhöhe.. (8 - 
15) : hoehe 

<35> 2610 IF hoehe<8 OR hoehe>15 THEN 2600 
<65> 2620 PRINT FNloc$(4,5);:INPUT" Zeichenbreite (8 - 
15) : ",breite 

<73> 2630 IF breite<8 OR breite>15 THEN 2620 
<15> 2640 GOSUB 3060:GOTO 1530 
<12> 2650 • 

<15> 2660 • Zeichensatz laden 
<18> 2670 ' 

<30> 2680 PRINT cls$;'' DATEN LADEN" 

<68> 2690 IF hoehe THEN GOSUB 2780 :IF ret-0 THEN 1530 E 
LSE 2680 

<37> 2700 name$'*"":GOSUB 2860:IF ret-O THEN 1530 

<15> 2710 IF FIND$(nanie$>="" THEN PRINTiPRINT " FILE NO 

T FOUND. . _ .. RETURN ".-aNPUT “",a$:GOTO 2680 

<70> 2720 IF breite >0 THEN GOSUB 2780: IF ret»0 THEN 1 

530 

<16> 2730 PRINT:PRINT" Zeichensatz wird geladen... , 

<30> 2740 CHAIN MERGE nameS» 10 ,DELETE 10000- 
<14> 2750 ' 

<17> 2760 • UP - Zeichensatz löschen 
<20> 2770 • 

<44> 2780 PRINT cUS 

< 4> 2790 PRINT " Zeichensatz im Speicher löschen (Y/N) 

<55> 2800 aS=’":a$=UPPERS(lNKEy$):IF a$<>"Y'' AND aS<>“N 
■’ THEN 2800 

<41> 2810 IF aS“"Y” THEN BRASE dat,byte: hoehe»0 :breite» 
0:ret-l ELSE ret-0 
2820 RETURN 
2830 • 

2840 ' Laufwerk 

2850 - ... 

2860 PRINT FNiocS(4,5) "Laufwerk: '•;lwS; ! 

2870 a$-“" :aS=INKEYS:IF aS“"" THEN 2870 ELSE aS-OP 
PERS<aS) 

2880 PRINT a$? . 

2890 ON lNSTR(CHRS(13)+"ABM",aS) GOTO 2900,2910,29 
10,2910:GOTO 2860 

2900 a$»lwS 

2910 lw$=aS:OPTION FILES lw$ 

2920 PRINT FNlocS<6,5)''Dateiname : "nameStPRINT 
2930 


< 2 > 
< 10 > 
<13> 
<16> 
<45> 

< 0 > 

<39> 

< 9 > 

<85> 

<7e> 

< 62 > 

< 12 > 

<15> 

<18> 

<54> 

<35> 

<65> 

<30> 

<85> 

< 88 > 

<87> 

<36> 

<94> 

<95> 

<58> 

< 7> 
< 10 > 
<13> 
<15> 
<83> 

<29> 

<79> 

<74> 

<13> 

<91> 

< 8 > 
<98> 
<87> 
< 1 > 
<72> 
< 0 > 
<16> 


THEN PRINT" NO FILE"!GOT 


Dateinamen eingeben 


2940 ■ Directory 
2950 ' 

2960 IF FINDS("*.zsm" )' 

0 2980 

2970 DIR *.Z8m 
2980 PRINT:PRINT 
2990 
3000 
3010 

3020 INPUT“Name ohne Punkt und Bezeichner : ,a5 
3030 IF a$-""OR LEN(aS)>e OR INSTR(aS,"•") THEN re 
t»0: RETURN ELSE ret»l 
3040 nameS-UPPERS(a$+".ZSM") 

3050 RETURN 

3060 DIM byte{breite) ,dat(94, breite):RETURN 
3070 ’ 

3080 ’ ERROR 
3090 ’ 

3100 IF SRR=4 THEN RESUME 1530 

3110 PRINT cls$; FNlocS ( 10,10 ) "FEHLER NR.:''ERR" in 

2EILE"ERL 

3120 RESUME 3130 

3130 END 

10000 DATA 8, B,JOYCE.ZSM 
10010 DATA 00,00, 00,FA,FA,00, 00, 00 
10020 DATA 00,EO,EO,00,EO,EO,00,00 
10030 DATA 28, FE,FE, 28,FE,FE,28, 00 
10040 DATA 00,24,54,FE,FE,54,48, 00 
10050 DATA 62,66,OC,18,30,66,46,00 
10060 DATA OC,5E,F2,BA,EC,5E,12,00 
10070 DATA 00,00, 20,EO,CO, 00, 00, 00 
10080 DATA 00,00,38,7C,C6,82,00,00 
10090 DATA 00, 00, 82,C6,7C,38, 00,00 


< 4> 10100 DATA 10,54,7C,38,38,7C,54,10 
<20> 10110 DATA 00,10,10,7C,7C,10,10,00 
<39> 10120 DATA 00,00,01,07,06,00,00,00 
<53> 10130 DATA 00,10,10,10,10,10,10,00 

< 6> 10140 DATA 00,00,00,06,06,00,00,00 
<52> 10150 DATA 06,OC,18,30,60,CO,80,00 
<97> 10160 DATA 38,7C,CE,92,E6,7C,38,00 
<92> 10170 DATA 00,02,42,FE,FE,02,02.00 
<47> 10180 DATA 00,4E,DE,92,92,F6,66,00 

< 2> 10190 DATA 00,44,86,92,92,FE,6C,00 
<12> 10200 DATA 18,28,4A,FE,FE,OA,08,00 
<24> 10210 DATA 00,B4,F6,92,92,9E,CC,00 
<91> 10220 DATA 00,7C,FE,92,92,DE,4C,00 
<74> 10230 DATA 00,CO,80,8E,9E,FO,EO,00 

< 0> 10240 DATA 00,6C,FE,92,92,FE,6C,00 

< 4> 10250 DATA 00,64,F6,92,92,FE,7C,00 
<53> 10260 DATA 00,00,00,36,36,00,00,00 
<9e> 10270 DATA 00,00,01,37,36,00,00,00 

< 0> 10280 DATA 00,10,38,6C,C6,82,00,00 
<86> 10290 DATA 00,24,24,24,24,24,24,00 
<76> 10300 DATA 00,82,C6,6C,38,10,00,00 
<97> 10310 DATA OO,40,C0,8A,9A,F0,60,00 
<61> 10320 DATA 02,12,7E,EE,B8,90,80,00 
<15> 10330 DATA 00,3E,7E,C8,C8,7E,3E,00 

< 1> 10340 DATA 82,FE,FE,92,92,FE,6C,00 
<39> 10350 DATA 38,7C,C6,82,82,C6,44,00 
<30> 10360 DATA 32,FE,FE,82,C6,7C,38,00 
<77> 10370 DATA 82,FE,FE,92,BA,82,C6,00 
<10> 10380 DATA 82,FE,FE,92,B8,80,CO,00 
<90> 10390 DATA 38,7C,C6,82,8A,CE,4E,00 
<53> 10400 DATA 00,FE,FE,10,10,FE,FE,00 
<32> 10410 DATA 00,82,82,FE,FE,82,82,00 

< 7> 10420 DATA OC,OE,02,82,FE,FC,80,00 
<51> 10430 DATA 82,FE,FE,10,38,EE,C6,00 
<21> 10440 DATA 82,FE,FE,82,02,06,OE,00 

< 6> 10450 DATA FE,FE,70,38,70,FE,FE,00 
<70> 10460 DATA FE,FS,60,30,18,FE,FE,00 
<18> 10470 DATA 00,7C,FE,82,62,FE,7C,00 
<80> 10480 DATA 82,FE,FE,92,90,FO,60,00 
<37> 10490 DATA 3C,7E,C2,8A,CC,76,3A,00 
<78> 10500 DATA 82,FE,FE,92,98,FC,66,00 
<51> 10510 DATA 00,64,F6,92,92,DE,4C,00 
<44> 10520 DATA 00,CO,82,FE,FE,82,CO,00 
<23> 10530 DATA 00,FC,FE,02,02,FE,FC,00 

< 0> 10540 DATA 00,F8,FC,06,06,FC,F8,00 
•cl4> 10550 DATA FE,FE,OC, 18,OC,FE,FE,00 

< 3> 10560 DATA 86,CE,78,30,78,CE,86,00 
< 37 > 10570 DATA 00,EO,F2,lE,lE,F2,EO,00 
<94> 10580 DATA E2,C6,8E,9A,B2,E6,CE,00 
<46> 10590 DATA 00,SE,9E,34,34,9E,8E,00 
<32> J0600 DATA 00,9C,BE,22,22,BE,9C,00 
<54> 10610 DATA 00,BC,BE,02,02,BE,BC,00 
<eB> 10620 DATA 00,20,60,FE,FE,60,20,00 
<22> 10630 DATA 01,01,01,01,01,01,01,01 
<36> 10640 DATA 00,00,40,60,30,10,00,00 
<81> 10650 DATA 04,2E,2A,2A,3C,lE,02,00 
<97> 10660 DATA 82,FC,FE,22,22,3E,IC,00 
<21> 10670 DATA 00,IC,3E,22,22,36,14,00 
<48> 10680 DATA IC,3E,22,A2,FC,FE,02,00 
<77> 10690 DATA 00,IC,3E,2A,2A,3A,18,00 
<42> 10700 DATA 00,12,7E,FE,92,CO,40,00 

< 7> 10710 DATA 00,19,3D,25,25,3F,3E,00 
<63> 10720 DATA 82,FE,FE,10,20,3E,lE,00 
<81> 10730 DATA 00,00,22,BE,BE,02,00,00 
<73> 10740 DATA 00,06,07,01,21,3F,BE,00 
<98> 10750 DATA 82,FE,FE,08,IC,36,22,00 
<84> 10760 DATA 00,00,82,FE,FE,02,00,00 
<58> 10770 DATA lE,3E,30,IC,30,3E,IB,00 
<85> 10780 DATA 20,3E,lE,20,20,lE,lE,00 
<26> 10790 DATA 00,IC,3E,22,22,3E,IC,00 

< 8> 10800 DATA 21,3F,IF,25,24,3C,18,00 
<42> 10810 DATA 18,3C,24,25,IF,3F,21,00 
<77> 10820 DATA 22,3E,lE,22,30,10,00,00 
<38> 10830 DATA 00,12,3A,2A,2A,2E,04,00 
<19> 10840 DATA 00,20,FC,FE,22,26,04,00 
<75> 10850 DATA 00,3C,3E,02,02,3E,3E,00 
<89> 10860 DATA 00,38,3C,06,06,3C,38,00 
<96> 10870 DATA 3C,3E,06,IC,06,3E,3C,00 
<90> 10880 DATA 22,36,IC,03,IC,36,22,00 
<81> 10890 DATA 00,39,3D,05,05,3F,3E,00 
<52> 10900 DATA 02,66,4E,5A,72,62,46,00 
<35> 10910 DATA 04,AE,AA,2A,3C,9B,82,00 
<49> 10920 DATA 00,9C,BE,22,22,BE,9C,00 
<16> 10930 DATA 00,9C,9E,02,02,9E,9E,00 
<62> 10940 DATA 7?,FF,80,92,92,7C,6C,00 


Beitraij;: 

System: 


Erweitertes System 
PCW 


LISTING >COMMAND <, REMARK = >'<• 

<90> 100 '- 

<20> 110 • COMMAND.BLD: 
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Listing—| 


<22> 

120 

<24> 

130 

<9B> 

140 

< 7> 

150 

<77> 

160 

<21> 

170 

< 6> 

180 

<52> 

190 

< 2> 

200 

<13> 

210 

<86> 

220 

<12> 

230 

< 4> 

240 

<67> 

250 

<98> 

260 

<30> 

270 

<10> 

280 

<54> 

290 

<12> 

300 

<45> 

310 

<53> 

320 

<91> 

330 

<S3> 

340 

<61> 

350 

<36> 

360 

<45> 

370 

<47> 

380 

<85> 

390 

<78> 

400 

<96> 

410 

<71> 

420 

<29> 

430 

<88> 

440 

<96> 

450 


’ erzeugt den ftSX-PROCESSOR command.com 
' written 1990 by NoFi 


RESTORE 210 

OPEN''0" , #1 , "COMMAND. COM" 

FOR i=l TO 350 

READ aS:PRINT #1 ,CHRS(VAL( '’SH”+aS)) ; 

NEXT 

CLOSE #l:END 

DATA 21,08,01,CD,CO,Q1,06,00,FS,F5,1E,1B,CD,C7 
DATA 01,1E,32,CD,C7,01,F1,5F,CD,C7,01,F1,F5,1B 
DATA lB,CD,CC,01,lE,52,CD,CC,01,fl,5F,CD,CC,01 
DATA 3E, FF, CD,Dl, 01, 20,6D,7C,B5, 20,42,21,30,01 
DATA CD,CO,01,07,00,B7,C2,00,00,3E,FF,32,4E,Oa 
DATA 21,4F,01, CD,CO,01,07,FF,00,21,57,01,CD,CO 
DATA 01,19,00,E6,FD,32,64,Ol,21,65,01,CD,C0,01 
DATA 19,FF,00,21,7C,71,11,FF,01,01,01,02,CD,57 
DATA FC,01,09,00,C3,4B,FC,22,18,02,21,DB, 01, 22 
DATA lA, 02, CD, 08, 02,38,19, 2A, 06,00, 11, DC, 01, CD 
DATA A7, 01, 20,OE, 4F, CD,32, 01,28, 01, 79,CD,Dl, 01 
DATA B7, CA, 00,00,11,26,02,CD,21, 02,C3,00,00, D5 
DATA 2E,10,06,08,CD,4B,02,D1,7C,C8,2E,18,7B,B7 
DATA C0,2E,0A,7E,23,66,6P,C3,A7,01,Dl,E5,OE,3i 
DATA C3,05,00,OE,02, C3,OS, 00,OE,05,C3,05, 00, 11 
DATA DA, 01, 12,OE, 3C, 03,05,00,00,00, 00, 00, 00, 00 
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00 
DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00 
DATA 00,00,00,50,52,4F, 46,49, 4C,45,2E,53,11,18 
DATA 02,CD,lC,O2,7C,B5,C8,23,7C,B5,2B,C0,37,C9 
DATA 18, 02, lA,02,OE,98,C3,05,00,OE,09,03,05,00 
DATA 0D,0A,4B,6F,6D,6D,61,6E,64,6F,2F,50,61,72 
DATA 61,6D,65,74,65,72,20,75,6E,67,75,65,60,74 
DATA 69,67,OD,OA,24,00,01,00,00,04,10,01,C9,1A 
DATA BE,C0,23,13,10,P9,C9,1A,1A,1A,1A,1A,1A,1A 


LISTING >BXIT<, REMARK = >'<• 


<90> 
< 20 > 
< 22 > 
<24> 
<98> 
<65> 
<23> 
<81> 
< 12 > 
< 8 > 
<35> 

< 4> 
<65> 

< 4> 
<37> 
<33> 

< 9> 
<73> 
<49> 
<49> 
<61> 
<53> 
<B5> 


XOO ’- 

110 ' EXIT.BLD: 

120 ' erzeugt die Systemerweiterung EXIT.RSX 
130 ' written 1990 by NoFi 

140 .- 

150 flen=&H7D:RESTORE 220 
160 0PEN''0",#1,"EXIT.RSX" 

170 PRINT il, CHR$(0)fU(IS(flen)STRINGS(253,0); 

180 FOR i=0 TO fienH+flsn/8 

190 READ a$:PRlNT #1 ,CHRS (VAL{ " SH''+aS )) ; 

200 NEXT 

210 CLOSE #l;END 

220 DATA 00,00,00,00,00,00,C3,1B,01,03,00,00,07,00 
230 DATA FF,00,45,58,49,54,20,20,20,20,00,00,00,79 
240 DATA FE,OF,28,16,FE,3C,20,E5,1A,FE,FF,28,30,21 
250 DATA 29,01,BC,20,DA,3E,FF,32,0E,01,3C,C9,13,1A 
260 DATA PE,2B,1B,20,CC,D5,BB,23,23,11,7S,01,01,07 
270 DATA 00,ED,BO,El,E5,23,11,6D,01,EB,OE,OB,ED,BO 
280 DATA Dl,OE,0F,18,BO,CD,09,01,B7,C6,3A,0E,01,B7 
290 DATA 21,75,CH,CB,AF,67,6F,32,0E,Ol,C9,43,4F,4D 
300 DATA 4D,41,4E,44,20,20,20,20,20,20,20,20,20,00 
310 DATA 80,00,00,00,10,10,00,10,02,00,10,88,10,00 
320 DATA 00,lA,lA,lA,iA,lA,lA,lA,lA,lA,lA,lA,lA,lA 


LISTING >ECHO<, REMARK = >'<. 

<90> 100 '- 

<20> 110 ’ ECHO.BLD: 

<22> 120 ’ erzeugt die Systemerweiterung ECRO.RSX 
<24> 130 ' written 1990 by NoFi 

<98> 140 '- 

<23> 150 flen=SH15B:RESTORE 220 
<21> 160 0PBN"0'‘,#1,"ECH0.RSX" 

<81> 170 PRINT #1, CHRS(0)MKIS(flen)STRINGS(253,0); 

<12> 180 FOR i=0 TO flen+l+flen/B 

< 8> 190 READ aSsPRINT #1,CHRS(VAL("aH"+a$)); 

<35> 200 NEXT 

< 4> 210 CLOSE #l:END 
00,00,00, 00, 00,00,C3,1B,01,C3,00,00,07,00 
FF,00,45,43,48,4F,20,20,20,20,00,00,00,79 
FE,3C,20,E9,1A,21,21,01,BC,20,E2,21,80,00 
34, 35,28,42,23,22,IC,02,21,E8,01,22,lE,02 
CD,OC,02,21,E9,01,E5,11,36,02,06,03,CD,25 
02,El,28,42, 11,41, 02,06,04,CD, 25, 02,28,48 
3A, 80,00,C6,81,6F, 26, 00,36, 24,11, 82,00,CD 
31,02,lE,aD,CD,36,02,lE,OA,CD,36,02,AF,C9 
11,48,02,CD,31,02,3A,OE,01,B7,28,08,11,38 
02,CD,31,02,AF,Cg,ll,41,02,CD,31,02,ÄF,C9 
3A,OB,01,3C,C8,ED,5B,50,02,CD,B4,01,3E,FF 
32,OE,01,3C,C9,3A,OE,Ol,B7,C8,3C,32,OE,Ol 
11,D2,01,CD,B4,01,ED,53,50,02,AF,C9,D5,21 
BD,01,CD,54,02,3A,00,Dl, 22, 52,02,28,28,28 


<65> 

220 

DATA 

< 8> 

230 

DATA 

<30> 

240 

DATA 

<36> 

250 

DATA 

< 6> 

260 

DATA 

<44> 

270 

DATA 

<31> 

280 

DATA 

<54> 

290 

DATA 

<21> 

300 

DATA 

<43> 

310 

DATA 

<21> 

320 

DATA 

< 4> 

330 

DATA 

<77> 

340 

DATA 

<42> 

350 

DATA 


<15> 

360 

DATA 

<64> 

370 

DATA 

<24> 

360 

DATA 

<49> 

390 

DATA 

<32> 

400 

DATA 

<10> 

410 

DATA 

<72> 

420 

DATA 

<22> 

430 

DATA 

<79> 

440 

DATA 

<63> 

450 

DATA 

<66> 

460 

DATA 

<25> 

470 

DATA 

<98> 

480 

DATA 

< 4> 

490 

DATA 


66,25,25,25,2E,07,7B,73,5F,23,7E,72,57,C9 
79,FE,02,28,04,FE,09,20,09,2A,52,02,2E,B4 
7E,E6,AO,CO,2A,50,02,E9,00,00,00,00,00,00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00,00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00,00 
00,00,11,1C,02,CD,20,02,7C,B5,C8,23,7C,B5 
2B,CO,37,C9,iC,02,lE,02,OE,98,C3,09,01,04 
10,01,C9,lA,BE,C0,23,13,lO,F9,C9,0E,09,C3 
09,01,OE,02,C3,09,01,4F,4E,20,OD,OA,24,4F 
46,46,20,OD,OA,24,45,43,48,4F,20,30,20,24 
50,02,52,02,D1,E5,OE,31,C3,09,01,00,80,00 
00,10,00,49,24,42,08,40,00,10,84,24,02,42 
42,09,08,41,24,41,20,80,00,00,04,02,00,00 
00,00,02,40,05,08,00,04,20,00,00,50,20,lA 


LISTING >T1ME<, REMARK = >'<. 


<ia> 
< 20 > 
< 22 > 
<24> 
<98> 
< 66 > 
<8l> 
<81> 
< 12 > 
< 8 > 
<35> 

< 4> 
<65> 
<60> 
<30> 
<3e> 
<77> 
< 22 > 
<IS> 
<62> 
<54> 
<18> 
<23> 
<14> 
<38> 
<65> 
<17> 
<91> 

< 9> 
< 12 > 
<77> 
<59> 
<54> 
<25> 
<45> 
<58> 
<94> 
<54> 
<80> 
<91> 
<33> 
<13> 
<74> 

< 7> 
<48> 
<96> 
< 12 > 


100 ■- 

110 ■ TIME.BLD: 

120 ' erzeugt die Systemerweiterung TIME.RSX 
130 ' written 1990 by NoFi 

140 ' - 

150 flen=SHlAA:RESTORE 220 
160 0PBN"0",#1, "TIME.RSX" 

170 PRINT #1, CHRS(0)MKI$(flen)STRlNG$(253,0); 

ISO FOR i=0 TO flen+l+flen/e 

190 READ aS:PRINT #1,CHR$ {VAL("&H"+aS )) ; 

200 NEXT 

210 CLOSE #1:BND 

220 DATA 00,00, 00, 00, 00, 00, C3,1B,01,C3,00,00,07, 00 
230 DATA FF,00,54,49,40,45,20,20,20,20,00,00, 00,79 
240 DATA FE,3C,20,E9,lA,21,21,01,BC,20,E2,21,aO,00 
250 DATA 34,35,CC,A9,01,C8,3E,20,23,BE,28,FC,CD,EA 
260 DATA 01, D8,CO,FE,18,DO, CD, F8,01,32,54, 02, CD,EA 
270 DATA 01,D8,FE,3C,DO,CD,F8,01,32,55,02,2B,7E,23 
280 DATA FE,3A,3E,00,20,OA,CD,EA,01,D8,PB,3C,DO,CD 
290 DATA FB, 01,32,56,02,11,27,02, CD, 11,02, CD,16, 02 
300 DATA 1E,OD,CD,1B,02,1E,OA,CD,1B,02,3A,56,02,32 
310 DATA 88,01,21,89,01, CD, 20, 02,5C,FF,00, 3A,55, 02 
320 DATA 32,97,01, 21, 98, 01,CD,20, 02,5B,FF,00,3A,54 
330 DATA 02,32,A6,01,21,A7,01,CD,20,02,5A,FF,00,AF 
340 DATA C9,21,B1,01,CD,20,02,5A,00,32,54,02,21,BC 
350 DATA 01,CD, 20, 02,SB, 00,32,SS, 02,21,C7,01,CD,20 
360 DATA 02, 5C,00,32,56, 02, 3E,30,11,68,02,21,54, 02 
370 DATA CD, 02, 02, 11,5C,02,CD,11,02,21,80,00,36,7E 
380 DATA EB, CD,57,02,21,81,00,34,35,09,CD, 80,02,08 
390 DATA 47,3E,3A,23,BE,78,23,C8,B7,C9,FE,0A,O8,47 
400 DATA AF,3C,27,10,FC,C9,06,03,ED,SF,12,13,ED,6F 
410 DATA 12,13, 13, 23,10,F4,C9,OE,09,C3,09, 01,OE, 01 
420 DATA C3,09,01,OE,02,C3,09,01,Dl,E5,OE,3l,C3,09 
430 DATA 01, 0D,0A,42, 69, 74,74,65,20,54,61,73,74, 65 
440 DATA 20,64,72,?D,63,6B,65,6E,2C,20,75,6D,20,5A 
450 DATA 65,69, 74, 20, 7A, 75, 20,73,65,74,7A,65,6E, 20 
460 DATA 2E,2E,2E,24,00,00,00,QE,OA,C3,09,01,41,6B 
470 DATA 74,75,65,6C,6C,65,20,5A,65,69,74,3A,20,30 
480 DATA 30,3A,30,30,3A,30,30,OD,OA,4B,65,75,65,20 
490 DATA 5A,65,69,74,3F,20,28,48,48,3A,4D,4D,3A,53 
500 DATA 53,29,3A,20,24,06,00,CD,AO,02,D8,23,47,3E 
510 DATA 20,BE,78,C8,87, 47,87,87,80,47,7E,D6,30, Da 
520 DATA FE,0A,3F,D8, 80,C9,00,80,00,00,10,02,00,80 
530 DATA 92,04,80,08,12,49,08,49,24,12,48,24,90,12 
540 DATA 12,42,48,42,49,20,10,08,00,00,00,00,04,21 
550 DATA 02,00,00,00,00,00,00,10,00,00,00,00,00,00 
560 DATA 40,00,00,00,IA,1A,1A,1A,1A,1A,1A,1A,1A,1A 


LISTING >CLS<, REMARK = >’<. 


<18> 
< 20 > 
< 22 > 
<24> 
<26> 
<92> 
<29> 
<81> 
< 12 > 
< 8 > 
<35> 

< 4> 
<65> 
<74> 
<55> 
<76> 

< 4> 

< 2 > 


100 '- 

110 ' CLS.3LD: 

120 ' erzeugt die Systemerweiterung CLS.RSX 
130 ' written 1990 by NoFi 

140 '- 

150 flen=SH42;RESTORE 220 
160 0PEN"0",#1,"CLS.RSX" 

170 PRINT #1, CHRS(O)MKI$(flen)STRINGS(253,0); 

180 FOR i=0 TO flen+l+flen/8 

190 READ aStPRINT #1,CHRS(VAL("&H"+aS)); 

200 NEXT 

210 CLOSE #1:END 

220 DATA 00,00,00,00,00,00,C3,1B,01,C3,00,00,07,00 
230 DATA FF,00,43,40,53,20,20,20,20,20,00,00,00,79 
240 DATA FE,3C,20,E9,1A,21,21,01,BC,20,E2,1E,1B,CD 
250 DATA 3D,01,1E,4S,CD,30,01,1E,1B,CD,3D,01,1E,48 
260 DATA CD,3D,01,AF,C9,OE,02,C3,09,01,00,80,00,00 
270 DATA 10,10,84,20,40,lA,lA,lA,lA,lA,iA,lA,lA,lA 
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I —Listing 


LrSTING >PAÜSE<, REMARK = >'<. 


<La> 

< 20 > 

< 22 > 

<24> 

<90> 

< 60 > 

< 4> 
<81> 
< 12 > 

< a> 

<35> 

< 4> 
<65> 
<79> 
<30> 
<26> 
<7a> 
<25> 
<79> 
<50> 
<a9> 
<96> 
<98> 
<41> 
<61> 

< 0 > 
<14> 
< 11 > 
<89> 
<40> 
<32> 
<44> 
<73> 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
2 30 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 


PAUSE.BLD: 

erzeugt die Systemerweiterung PAUSE.RSX 
written 1990 by NoFi 


flen=&HFE:RESTORE 220 
OPEN"0",#1,"PAUSE.RSX" 

PRINT #1, CHR$(0)MKlS(flen)STRINGS(253,0}; 

FOR i=o TO flen+i+flen/e 

READ a$:PRINT #1,CHRS(VAL("&K"+aS)); 

NEXT 

CLOSS #l:END 

DATA 00,00,00,00,00,00,03,18,01,03,00,00,07,00 
DATA FF,00,50,41,55,53,45,20,20,20,00,00,00,79 
DATA FE,3C,20,E9,1A,21,21,01,BC,20,E2,21,80,00 
DATA 34,35,28,OC,7E,C6,81,6P,36,24,11,82,00,CD 
DATA 93,01,11,9D,01,CD,93,01,CD,98,01,FE,03,3E 
DATA 00,F5,11,E7,01,CD,93,01,F1,C0,11,BP,01,CD 
DATA 93,01,CD,98,01,E6,DF,FE,4A,3E,00,F5,:1,E7 
DATA 01,CD,93,01,F1,CO,2A,OA,01,11,EA,01,CD,7A 
DATA 01,3E,00,C0,2E,OE,36,FF,AF,C9,D5,2E,10,06 
DATA 08,CD,F2,01,D1,7C,C8,2E,18,7E,87,C0,2E,0A 
DATA 7E,23,66,6F,C3,7A,01,0E,09,C3,09,01',OE,01 
DATA C3,09,01,OD,OA,57,65,69,74,6S,72,20,6D,69 
DATA 74,20,62,65,60,69,65,62,69,67,65,72,20,54 
DATA 61,73,74,65,20,2S,2E,2E,24,0D,0A,53,74,61 
DATA 70,65,6C,76,65,72,61,72,62,65,69,74,75,6K 
DATA 67,20,61,62,62,72,65,63,68,65,6E,3F,20,28 
DATA 4A,2F,4E,29,3A,20,24,OD,OA,24,47,45,54,20 
DATA 20,20,20,20,04,10,01,C9,1A,BE,CO,23,13,10 
DATA F9,09,00,80,00,00,10,00,00,49,20,24,24,80 
DATA 24,24,80,00,40,00,21,08,00,00,00,00,00,00 
DATA 00,00,00,00,00,00,1A,1A,1A,1A,1A,1A,1A,1A 


LISTING >DATB<, REMARK * 

<90> 100 ' - 

<20> 110 ' DATE. BLD: 

<22> 120 ' erzeugt die Systemerweiterung DATE. RSX 
<24> 130 ' written 1990 by NoFi 

<98> 140 ’- 

<3B> 150 flen=SH22E:RBSTORE 220 
<95> 160 OPEN'’0",#l, "DATE.RSX" 

<8i> 170 PRINT #1, CHRS(0)MKIS(flen)STRINGS(2S3,0); 

<12> 180 FOR i=0 TO flen+l+flen/8 

< 8> 190 READ aSrPRINT #1,CHRS(VAL( "SH"+aS) ) ; 

<35> 200 NEXT 

< 4> 210 CLOSE #l:END 

<65> 220 DATA 00 , 00 , 00 , 00,00 , 00,C3 , IB , Ol,C3 ,00, 00 , 07 ,00 
<33> 230 DATA FF, 00, 44 ,41 ,54 , 45 , 20 ,20, 20 , 20,00 ,00, 00 , 79 
<30> 240 DATA FE,3C,20 , E9 , lA,21 , 21 , 01 , BC , 20 ,E2 ,21 , 80 , 00 
<28> 250 DATA 34, 35 ,CC,EA, Öl , CB,3E,20 , 23 , BE ,28,FC, CD,DC 
<57> 260 DATA 01,D8,C0,3D,F8,3C,32,A3, 02 ,CD,DC,01,D8,C0 
<41> 270 DATA 3D,FB , 3C, FE,OD,DO, 32,A4 , 02,CD,DC , 01 ,D8, FE 
<14> 280 DATA 4E,D8,32 ,A5,02 ,3A, A4,02, 3D,21 ,A6, 02 ,5F, 16 
<98> 290 DATA 00 , 19 , 46 , 04 , 3A,A3 , 02 , BB , 38 , OF,FE ,ID, CO ,3A 
<16> 300 DATA A4, 02,FE, 02,CO, 3A,A5, 02,B6, 03, CO, 21,00,00 
<45> 310 DATA 11 , 6D,01 , 3A,A5 ,02, 4F,3E,4E,B9 , 30 , OB , 19 , F5 
<68> 320 DATA E6 , 03 , 20 , 01 , 23 , Fl , 3C,18 , F2 ,E5, 21 ,A6, 02 , 3A 
<50> 330 DATA A4, 02 ,47, 3E,01 , 16 , 00 , 5E,B8,30 ,13, FE,02 , 20 
<50> 340 DATA 08 , F5 , 79 , E6 , 03 , 20 , 01 , 13 , Fl , E3, 19, E3 , 23 , 3C 
<62> 350 DATA 18 , E9 ,E1,3A,A3, 02 , 5F , 19 , E5 ,7D,32 ,CB ,01, 21 
<34> 360 DATA CC,01 , CD, 9C,02, 58,FF , 00 , El,7C,32,D9 , 01 ,21 

< 6> 370 DATA DA,01 ,CD,9C,02,59,FF,00,AF,C9,CD,B2,02 ,D8 
<52> 380 DATA 47 , 3E, 2E,23,BE,78, 23,C8 , S7 , C9 , 21 , F2 , 01,CD 
<80> 390 DATA 9C, 02 ,58, 00 , E5 , 11 ,6D, 01 , 3E , 01 , OE ,40,0C,E6 
<64> 400 DATA 03 , 20 , 01 , 2B,ED , 52 , 38 , 03,3C,18 , F3 ,B7, 79 , 32 
<32> 410 DATA A5,02 ,20, 01 ,23,19 ,E5,21 ,A6, 02,AF,57,5E,23 
<22> 420 DATA E3 , ED,52 , E3 , 3C , 30 , F7 , El , 19 , 32 ,A4, 02 ,7D,B7 
<8a> 430 DATA 20, 18 , 3A, A4, 02,3D,20 , 09,3A,A5 , 02 ,3D, 32 , A5 

< 6> 440 DATA 02 , 3E , OC , 32, A4,02, 21 , A5 , 02 , 5F , 19 , 7E,32 ,A3 
<49> 450 DATA 02,El , CD,77 , 02 , 3A, A3, 02,CD , 91 , 02 , 22 ,EE,02 

< 5> 460 DATA 3A,A4, 02,CD,91,02, 22, Fl,02,3A,A5,02,CD,91 

< 3> 470 DATA 02 , 22 , F4 , 02 , 11,D9 ,02, CD,CF,02 ,21 ,80 ,00, 36 
<85> 480 DATA 7E,E8 , CD, D4, 02 , 21 , 81 , 00 , 34,35 ,C9,11, 07 ,00 
<41> 490 DATA B7 , SD,52 , 30 ,FC, 19 , 11 , 12 , 03,CB,25 , CB,25 ,19 

< 9> SOO DATA 11,EA,02,01,04,00,ED,BO,C9,2E,2F,2C,D6,OA 
<78> 510 DATA 30,FB , C6 ,3A, 67,C9,D1,E5 ,OE, 31 , C3 , 09 , 01 , 00 
<56> 520 DATA 00 , 00 , IF,1C,1F , lE,1F,lE,IF,IP,lE,IF,lE,IF 
<68> 530 DATA 06 , 00 , CD , C5 , 02 , D8 , 23 ,47,3E, 20 ,BE, 78,C8,87 
<96> 540 DATA 47 , 87,87,80 ,47 ,7E,D6,30,DB,FE,OA,3F,D8,80 
<44> 550 DATA C9 , OE , 09 , C3 , 09 , 01 , OE,OA,C3 , 09 , 01 , 61,6B ,74 

< 1> 560 DATA 75,65,6C,6C,65,73,20,44,61,74,75,6D,3A,20 
<53> 570 DATA 53 , 41,2C , 20 , 30 , 31 , 2E,30,31 , 2E , 37,38 , OD, OA 
<44> 580 DATA 6E,65,75,65,73,20 , 44,61 ,74 ,75,6D,3F, 20, 28 

< 3> 590 DATA 54 , 54 , 2E,4D, 4D, 2E,4A,4A,29,3A,20 , 24,53 , 61 
<15> 600 DATA 2C,20,53,6F,2C,20,4D,6F,2C,20,44,69 ,2C, 20 
<27> 610 DATA 4D, 69 , 2C,20,44 ,6F, 2C, 20, 46,72 , 2C , 20 , 00 , 80 

< 9> 620 DATA 00,00,10,02,00,80,90,02,40,91,00,80,41,00 


<53> 630 DATA 10,00,00,90,00,00,00,10,24,80,92,02,00,09 
<53> 640 DATA 00,00,00,10,10,00,10,20,88,48,22,49,24,92 
<60> 650 DATA 49,00,80,00,20,20,00,00,20,00,02,00,00,00 
<23> 660 DATA 10,80,00,00,00,00,00,00,00,00,00,00, lA, lA 


LISTING >BEEP<, REMARK = >'<. 


<90> 

< 20 > 

< 22 > 

■<:24> 

<9S> 

<92> 

< 68 > 

<81> 

< 12 > 

< a> 

<35> 

< 4> 
<65> 
<74> 
< 88 > 
< 68 > 

< 4> 

< 2 > 


100 ’- 

110 ' BEEP.BLD: 

120 ’ erzeugt die Systemerweiterung BEEP.RSX 
130 ' written 1990 by NoFi 

140 ' - 

150 flen=&H42:RESTORE 220 
160 0PEN"0",#1,"BEEP.RSX" 

170 PRINT #1, CBR$(0)MKlS(flen)STRINGS(2S3,0); 

180 FOR i=ü TO flen+i+flen/8 

190 READ aStPRINT #1,CHR$(VAL("&H"+aS)) ; 

200 NEXT 

210 CLOSE #l:END 

220 DATA 00,00,00,00,00,00,C3,1B,01,C3,00,00,07,00 
230 DATA FF,00,42,45,45,50,20,20,20,20,00,00,00,79 
240 DATA FE,3C,20,E9,1A,21,21,01,BC,20,E2,1E,07,CD 
250 DATA 3D,01,1E,07,CD,3D,01,1B,07,CD,3D,01,1E,07 
260 DATA CD,3D,01,AF,C9,OE,02,C3,09,OX,00,80,00,00 
270 DATA 10,10,84,20,40,1A,1A,1A,1A,1A,1A,1A,1A,1A 


LISTING >2S<, REMARK ® >’<• 


<90> 
< 20 > 
< 22 > 
<24> 
<98> 
< 10 > 
< 22 > 
<81> 
< 12 > 
< 8 > 
<35> 

< 4> 
<6S> 
<90> 
<30> 
<49> 
<6B> 
<96> 
<93> 
<62> 
<85> 

< 9> 
<27> 
<37> 
<93> 
< 88 > 
<97> 
<44> 
<13> 
<70> 
<59> 
<5S> 
< 21 > 
<i6> 
<24> 
< 90 > 
<80> 
<15> 
<43> 


100 ' - 

110 ' ZS.BLD: 

120 ' erzeugt die Systemerweiterung ZS.RSX 
130 ' written 1990 by NoFi 

140 ' - 

150 flen='&H14B:RESTORE 220 
leO 0PEN"0",#1,"ZS.RSX" 

170 PRINT #1, CHR$(0)MKI$(flen)STRINGS(253,0); 

180 FOR i=0 TO flen+l+flen/8 

190 READ aSiPRINT #1 ,CHRS (VAL( "&H"+aS)); 

200 NEXT 

210 CLOSE #1:END 

220 DATA 00,00, 00,00, 00,00,C3,1B,01, €3,00,00,07, 00 
230 DATA FF, 00,5A,53, 20,20, 20, 20, 20,20, 00, 00, 00, 79 
240 DATA FE,3C,20,E9,1A,21,21,01,BC,20,E2,21,80,ÖO 
250 DATA 7E,B7,28,4A,23,22,Cl,01,2i,8D,Ol,22,C3,01 
260 DATA CD, Bl,01,3C,D8,21, 8E, 01, CD, CA,01,FE,08,DO 
270 DATA F5,32,52,01, 21,53, 01, CD, E7, 01,06,FF,00, Fl 
280 DATA F5,F5,1E,XB,CD,EE,01,1E,32,CD,EE,01,F1,SF 
290 DATA CD,EE,01,F1,F5,1E,1B,CD,F3,01,1E,52,CD,F3 
300 DATA Ol,Fl,5F,CD,F3,01,AF,C9,21,B0,01,CD,E7,0a 
310 DATA 06,00,C6,30,32,1B,02,11,FD,01,CD,F8,01,AF 
320 DATA C9, 00, 00, 00, 00, 00, 00,00,00,00,00,00,00,00 
330 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00 
340 DATA 00, 00,00,00,00,00,00, 00, 00, 11,CI, 01,CD, C5 
350 DATA 01,7C,BS,Ca,23,7C,B5,2B,C0,37,C9,Cl,01,C3 
360 DATA 01, OE, 98, €3,09,01,06, 00,CD,DD, 01,08,23,47 
370 DATA 3E,20,BE,78,C8,e7,47,87,87,a0,47,7E,D6,30 
380 DATA D8,FE,OA,3F,D8,B0,C9,Dl,E5,0E,31,C3,09,01 
390 DATA 0E,02,C3,09,0i,0B,05,C3,O9,Ol,0E,09,C3,09 
400 DATA 01,4l,75,67,65,6E,62,6C,69,63,6B,6C,69,63 
410 DATA 68,65,72, 20,5A, 65,69,63,68, 65, 6E, 73,61,74 
420 DATA 7A,3A,20,00,0D,0A,3Ö,3D,55,53,41,2C,20,31 
430 DATA 3D,46,2C,20,32,3D,44,2C,20,33,3D,47,42,2C 
440 DATA 20,34,3D,44,4B,2C,20,35,3D,53,2C,20,36,3D 
450 DATA 49,2C,20,37,3D,45,OD,OA,24,00,80,00,00,10 
460 DATA 00,49,21,20,49,00,21,08,10,84,24,09,20,00 
470 DATA 00,00,00,12,00,28,42,00,00,00,04,21,08,00 
480 DATA 00,00,ÖO,00,00,00,00,00,00,1A,1A,1A,1A,1A 


;PV12.SUB: 

,'Diese Submit-Datei ändert den Eintrag 'PROFILE.S’ 
;iiTi CP/M-Systemfile J12GCPM3.EMS in 'COMMAND.C. 

f 

;Damit diese Änderung durchgeführt werden kann, 
»•müssen folgende Dateien/Programme auf dem gleichen 
»•Laufwerk verfügbar sein: 

; SU3MIT.COM, SID.COM, J12GCPM3.EMS und PV12.SUB 
sid 

<r jl2gcpm3 .eins 
<s591c 

<w jl2gcpm3.ems 
<‘c 
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Listinq—i 


;PV14.SÜB: 

;Diese Submit-Datei ändert den Eintrag 'PROFILE.s' 
;im CP/M-Systemfile Ja4GCPM3.EMS in 'COMMAND.C. 

;Damit diese Änderung durchgeführt werden kann, 
/•müssen folgende Dateien/Programme auf dem gleichen 
;Laufwerk verfügbar sein: 

; SUBMIT.COM, SID.COM, J14GCPM3.EMS und PV14.SUB 
sid 

<r jl4gcpm3.ems 
<s59dc 

<'C''j’O'‘j'M'‘j'M'‘j’A'“j’N' ‘j 'D' 'j '.’-j'C“j.-j 

<w j 1 4gcpm3. ems 

<'c 


Programm: VERSURA.BAS 

System: CPC 464/664/6128 

Datenträger: Kassettc/Diskette 


1000 ' SOFTICE [698] 

1010 ' praesentiert: [544] 

1020 ' [117] 

1030 ' [117] 

1040 ' V E R S U R A [1083] 

1050 ' [117] 

1060 ' Ein Strategiespiel [2144] 

1070 ' [117] 

loao ’ [117] 

1090 ’ written by Ralf Brostedt [1860] 

1100 ' {c)1987 [262] 

1110 ’ [117] 

1120 ■ [117] 

1130 ' [117] 

1140 bor=l [267] 

1150 RANDOMIZE TIME [1777] 

1160 SYMBOL AFTER 144 [1456] 

1170 DIM feld(8,8),x(2,4),y(2,4) [1374] 

1180 SYMBOL 144,255,128,128,128,128,120,12 [1943] 
8,128 

1190 SYMBOL 145,255,1,1,1,1,1,1,1 [1592] 

1200 SYMBOL 146,128,128,128,128,128,128,12 [2414] 
8,25ä 

1210 SYMBOL 147,1,1,1,1,1,1,1,255 [2007] 

1220 SYMBOL 148,0,3,7,7,7,7,3,1 [1583] 

1230 SYMBOL 149,0,192,224,224,224,224,192, [1787] 
128 

1240 SYMBOL 150,7,1,7,31,63,63,127,0 [1917] 

1250 SYMBOL 151,224,128,224,248,252,252,25 [2054] 
4,0 

1260 SYMBOL 152,24,24,24,24,24,24,24,24 [2164] 

1270 SYMBOL 153,60,60,60,60,60,60,60,60 [2047] 

1280 SYMBOL 154,126,126,126,126,126,126,12 [2495] 
6,126 

1290 SYMBOL 155,255,255,255,255,255,255,25 [2479] 
5,255 

1300 a$=CHR$(10)+STRINGS(2,8) [749] 


1310 feldS=STRING$(2,143)+aS+STRING$(2,143 [3656] 
) 

1320 figS=CHRS(14a)+CHRS(149)+aS+CHRS{l’50) [2509] 
+CHRS(151) 

1330 rahmenS=CHR$(144)+CHRS(l45)+aS+CHRS(l [2796] 
46)+CHRS(147) 

1340 FOR il=l TO 8 STEP 2:FOR i2=l TO 8 ST [2499] 
EP 2 

1350 feld(il+l,i 2 )=l:feld(il,i 2 +l)=l:NEXT [2541] 
i2:NEXT il 

1360 fp0»0:fpl=26:fp2=6 t fp3=2 [931] 

1370 MODE l;BORDER 0:PAPER 0:PEN 1:INK 0,0 [5768] 
;INK 1,0:INK 2,0:INK 3,0:CLS:PRINT CHRS(22 
) 

1380 t{l)=0:t(2)=0 [940] 

1390 LOCATE 1,1:PEN 1:PRINT CHR$(136)+STRI [4232] 
NG$(16,140)+CHR$(132) 

1400 FOR i=2 TO 17 [608] 

1410 LOCATE l,i:PRINT CHRS(138)LOCATE 18 [3197] 
,i:PRINT CHRS(133); 

1420 NEXT i [375] 

1430 LOCATE 1,18:PRINT CHRS(130)+STRINGS(1 [2791] 
6,131)+CHRS(129) 


1440 FOR il=l TO 8 :FOR i2=l TO 8 [2304] 

1450 PEN feld(il,i 2 )iLOCATE il* 2 ,i 2 * 2 ;PRIN [2888] 
T feldS; 

1460 NEXT i2:NEXT il [564] 

1470 MOVB 9,105:TAG:PRINT" abcdefgh [34311 
";:TAGOFF 

1480 i2=376:FOR i=l TO 8 :MOVE 17*16+8,i2:T [4684] 
AG:PRINT i;;TAGOFF:i2=i2-32:NEXT i 
1490 MOVE 1,399:DRAW 1,81:DRAW 20*16-2,81, [3605] 
1:DRAW 20*16-2,399:DRAW 1,399 

1500 INK 0,fp0:INK l,fpl:INK 2,fp2:INK 3,f [2301] 
p3 


1510 WINDOW#!,1,25,1,18 [1103] 

1520 WINDOW#2,22,40,1,18 [1404] 

1530 WINDOW#3,1,40,20,25 [1244] 

1540 RESTORE 1550 [745] 

1550 DATA 1,1,2,1,1,2,2,2,7,7,8,7,7,8,0,8 [1839] 

1560 FOR il*l TO 2:FOR i2=l TO 4 [1936] 

1570 READ x(il,i2),y{il,i2);PEN il+l:LOCAT [4867] 

E x(il,i2)*2,y(il,i2)*2:PRlNT fig$; 

1580 NEXT i2:NEXT il [564] 

1590 WINDOW SWAP 0,3:LOCATE 1,4:PEN 1:PRIN [2846] 
T'’ink 0,'';fp0 

1600 LOCATE 11,4:PRINT"ink l,";fpl [1076] 

1610 LOCATE 21,4:PRINT"ink 2 ,'';fp 2 [1249] 

1620 LOCATE 31,4:PRINT”ink 3,";fp3 [2034] 

1630 WINDOW SWAP 0,3:WINDOW SWAP 0,2 [2240] 

1640 CLS [91] 

1650 PRINT’'VERSURA" [1291] 

1660 PRINT"=s=====b''; ZONE 19 [1833] 

1670 PEN 2:PRINT:PRINT:PRINT''l) Zwei Spiel [9866] 
er”,," 2 ) Gegen Computer",PEN 3:PRINT"3) 

Farben aendern",,, :PEN l:PRINT''Ihre Wahl:" 

1680 WHILE INKEyS<>"”:WEND [1786] 

1690 aS = INKEyS:IP aS<"l''OR aS>"3"THEN 1690 [1716] 
1700 IF aS = "l''THEN sp =2 [ 1010 ] 

1710 IF aS="2"THEN sp=l [751] 

1720 IF a$="3"THEN 1750 [1167] 

1730 GOTO 2080 [347] 

1740 END [110] 

1750 • [117] 

1760 ’ [117] 

1770 ' Farben aendern [637] 

1780 ' [117] 

1790 ' [117] 

1800 WINDOW SWAP 0,2:WINDOW SWAP 0,3 [2175] 

1810 i=0:i(0)=fp0:i<l)=fpl:i(2)=fp2!i(3)=f [2458] 
p3 

1820 PEN 2:LOCATE i*10+7,4:PRINT i(i); [2465] 

1830 WHILE INKEYSo"” :WEND [1786] 

1840 IF INKEY(18)=0 THEN 2000 [318] 

1850 IF INKEY(0)=0 THEN 1900 [1316] 

1860 IF INKEY(2)=0 THEN 1920 [948] 

1870 IF INKEY(8)=0 THEN 1940 [1251] 

1880 IF INKEY(1)=0 THEN 1970 [1123] 

1890 GOTO 1840 [ 395 ] 

1900 i(i)=i(i)+l:IF i(i)>27 THEN i{i)=27 [2866] 

1910 INK i,i{i)rLOCATE i*10+7,4:PRINT i(i) [2554] 
;:GOTO 1820 

1920 i(i)=i(i)-l:IF i(i)<0 THEN i(i)=0 [3252] 

1930 INK i,i(i):LOCATE i*10+7,4:PRINT i(i) [2554] 
;:GOTO 1820 

1940 IF i=0 THEN 1820 [829] 

1950 LOCATE i*10+7,4:PEN IrPRINT i(i);:PEN [1277] 
2 


0 1820 

1970 IF i=3 THEN 1820 [951] 

1980 LOCATE i*10+7,4:PEN 1:PRINT i(i);:PEN [1277] 


1990 i=i+l:LOCATE i*10+7,4:PRIKT i(i);:GOT [23451 
O 1820 

2000 FOR il=0 TO 3:PEN l:LOCATE il*10+7,4: [3756] 
PRINT i(il);;NEXT il 

2010 fp0=i(0):fpl=i(l):fp2=i(2):fp3=i(3) [2833] 


2020 GOTO 1630 [349] 
2030 ’ [117] 
2040 * [117] 
2050 ’ Das Spiel beginnt [884] 
2060 » [117] 
2070 ’ [117] 


2080 CLS:PRINT"Ich werfe jetzt”,"eine Muen [8201] 
ze um”,"herauszufinden,","wer anfaengt." 
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[—Listing 


2090 PRINTtIF sp=l THEN PRINT"Sie stehen 1 {2246] 

2100 IF sp=2 THEN PRINT"Spieler 1 hat die" [4337] 
'■Linken, Spieler 2","die Rechten" 

2110 DATA 155,154,153,152,32,-1,32,152,153 [2322] 
'154,155,1 

2120 RESTORE 2110 [584] 

2130 il=0 

2140 i2=INT(RND*ß0)+80 [1141] 

2150 a=2 [322] 

2160 PEN a l3flJ 

2170 READ b:IF b=-l THEN 2220 [1100] 

21S0 IF b=l THEN 2240 [677] 

2190 LOCATE 9,11:PRINT CHRS(b); [2307] 

2200 FOR i-1 TO il:NEXT i [951] 

2210 GOTO 2170 1361] 

2220 a=a+l:IF a>3 THEN a=2 [1397] 

2230 GOTO 2160 

2240 RESTORE 2110:il=il+20:IF il>i2 THEN 2 (2388) 
300 

2250 GOTO 2160 [363] 

2260 ' [HZI 

2270 ' [117) 

2280 ’ Muenze gefallen (678] 

2290 ■ [117] 

2300 ' [Jl^J 

2310 FOR i=l TO 2000:NEXT 1 [936] 

2320 CLS 

2330 FOR zug^a-l TO 2 [1714] 

2340 PEN 1 [549] 

2350 IF zug=2 AND sp=l THEN 3170 [1675] 

2360 CLS;PRINT"Spieler";zug [1759] 

2370 LOCATE 1,3:PRINT"Schwung (1-9): [2486] 

2380 WHILE INKEY$<>"":WEND [1786] 

2390 sch$=INKEY$:IF schS=""THBN 2390 [990] 

2400 LOCATE 16,3:PRINT SChS;:IF sch$<"l"OR [3050] 
SchS>"9"THEN 2370 

2410 sch=VAL(Sch$)*S [1089] 

2420 FOR i=l TO SCh [417] 

2430 ww=INT(RND*6)+l [964] 

2440 LOCATE 1,10 [726] 

2450 ON WW GOSUB 3010,3020,3030,3040,3050, [2061] 
3060 

2460 NEXT i [375] 

2470 LOCATE 1 ,3:PRINT"Koordinaten: [2734] 

2480 LOCATE 1,5:PRINT"von: "; [2198] 

2490 WHILE INKEYSo"" !WEND [1786] 

2500 klS=lNKEY$:IF klS=""THEN 2500 [2113] 

2510 k$=UPPERS(klS) [278] 

2520 IF k$<"A"OR kS>"H"THEN 2480 [1259] 

2530 LOCATE 6,5:PRINT kS; [1775] 

2540 kl=ASC(k$)-64 [944] 

2550 WHILE INKEY$<>"":WEND [1786] 

2560 kS=INKEYS:IF k$=""THEN 2560 [1482] 

2570 IF kS<"l"OR k$>"8"THEN 2550 [455] 

2580 LOCATE 7,5:PRINT kS; [914] 

2590 k2=VAL(kS) 

2600 FOR i=l TO 4 [450] 

2610 IF x(zug,i)=kl AND y(zug,i)=k2 THEN 2 [2298] 
630 

2620 NEXT i:GOTO 3100 [632] 

2630 WINDOW SWAP 0,1:PRINT CHRS(22):LOCATE [2253] 
kl*2,k2*2 

2640 PEN ABS(zug-4) [800] 

2650 PRINT rahinenS; [813] 

2660 WINDOW SWAP 0,1 [1031] 

2670 PEN l 

2680 LOCATE 1,6:PRINT"nach: "; [1665] 

2690 WHILE INKEYS<>"":WEND [1786] 

2700 1S=INKEY$:IF 1$=""THEN 2700 [1599] 

2710 1$=ÜPPERS{1$) [356] 

2720 IF 1S<"A"0R 1$>"H"THEN 2690 [1521] 

2730 ll=ASC(lS)-64 !fZ?L 

2740 LOCATE 6,6;PRINT IS; [1220] 

2750 WHILE INKEYSo"" :WEND [1786] 

2760 1S=INKEYS:IF 1S=""THEN 2760 [1811] 

2770 IF l$<"l"OR 1S>"8"THEN 2750 [1148] 

2780 LOCATE 7,6:PRINT IS, (668] 

2790 12=VAL(1S) 344] 

2800 ' [ll'J 

2810 ’ Position zu Position OK? [1536] 

2820 ' (11'?) 


2830 dl=ABS(kl-ll) :d2=ABS(k2-12) :siiinine=dl+ [3021] 
d2 

2840 IF suinmeoww THEN 3100 [743] 

2850 GOSUB 4060:IF nin>l THEN 3100 [1379] 

2860 FOR il=l TO 2:FOR i2=l TO 4 [1936] 

2870 IF X(il,i2)=ll AND y{il,i2)*l2 THEN 3 [2451] 
070 

2880 NEXT i2:NEXT il [564] 

2890 WINDOW SWAP 0,1 [1031] 

2900 PRINT CHR$(22) [984] 

2910 LOCATE 11*2,12*2:PEN ZUg+1 [1332] 

2920 PRINT figS; [981] 

2930 x(zug,i)=li:y(2ug,i)=l2 [l?61] 

2940 LOCATE kl*2,k2*2:PEN feld(kl,k2) [2725] 

2950 PRINT feldS; [630] 

2960 WINDOW SWAP 0,1 [1031] 

2970 IF t(ZUg)>=4 THEN 3890 [887] 

2980 NEXT ZUg [336] 

2990 a=2 [322] 

3000 GOTO 2330 [345] 

3010 PRINT"#####":PRINT'’# #":PRINT"# 0 # [4122] 

":PRINT"# #":PRINT"*####":RETURN 
3020 PRINT"#####":PRINT"#0 #":PRINT"# # [5348] 
PRINT"# 0#":PRINT"####*":RETÜRN 
3030 PRINT"#####":PRINT"#0 #":PRINT"# 0 # [4976] 

";PRINT"# O#":PRINT"#####":RETURN 

3040 PRINT"#####":PRINT"#0 0#":PRINT"# # [5251] 

":PRINT"#0 0#":PRINT"#####":RETURN 

3050 PRINT"#####":PRINT"#0 0#'’:PRINT"# 0 # [5685] 

":PRINT"#0 O#":PRINT"#####":RETURN 
3060 PRINT"#####":PRINT"#0 0#":PRINT"#0 0# [4918] 
":PRINT"#0 0#":PRINT"#####":RETURN 
3070 IF zug=il THEN 3100 [1155] 

3080 x(il,i2)=0:y(il,i2)=0:t{zug)=t(zug)+l [1784] 
3090 GOTO 2890 [321] 

3100 BORDER 26:INK 0,26 [909] 

3110 WINDOW SWAP 0,1;PRINT CHR$(22) [1574] 

3120 LOCATE kl*2,k2*2:PEN feld(kl,k2) [2725] 

3130 PRINT rahnienS; [813] 

3140 BORDER 0:INK 0,fp0 [873] 

3150 WINDOW SWAP 0,1 [1031] 

3160 GOTO 2480 [395] 

3170 • [117] 

3180 ■ (117) 

3190 ' Hier spielt der Computer! [1153] 

3200 ’ [117] 

3210 ’ [117] 

3220 PEN l:CLS:PRINT"Computer:" [2356] 

3230 FOR i=l TO 10:WW=INT(RND*6)+l [1815] 

3240 LOCATE 1,10:ON ww GOSUB 3010,3020,303 [2352] 
0,3040,3050,3060 

3250 NEXT i [375] 

3260 LOCATE 1,3:PRINT"Koordinaten:" [2137] 

3270 LOCATE 1,5•.PRINT"VOn :" [1737] 

3280 LOCATE 1,6:PRlNT"nach:" [1388] 

3290 FOR il“l TO 4 [840] 

3300 IF X(2,il)=0 OR y(2,il)=0 THEN 3390 [1928] 

3310 FOR i2=l TO 4 [1064] 

3320 IF X(l,i2)=0 OR y(l,i2)=0 THEN 3380 [1511] 

3330 kl=x(2,il):k2=y(2,il) [1388] 

3340 ll=x(l,i2):l2=y(l,i2) [1581] 

3350 dl=ABS(kl-ll):d2=ABS(k2-l2) [2085] 

3360 sum=dl+d2:p=0 [1083] 

3370 IF sum=ww THEN GOSUB 4060:IF nin<2 THE [3053] 

N p=l;GOTO 3680 

3380 NEXT i2 [444] 

3390 NEXT il [445] 

3400 weite=16 [716] 

3410 FOR il=l TO 4 [840] 

3420 IF X(2,il)=0 OR y(2,il>=0 THEN 3520 [1894] 

3430 FOR jl=l TO 8 [1023] 

3440 FOR j2=l TO 8 [611] 

3450 kl=x(2,il):k2=y(2,il) [1388] 

3460 dl=ABS(kl-jl):d2=ABS(k2-j2):sum=dl+d2 [2133] 

3470 IP sumoww THEN 3510 [1190] 

3480 FOR i4=l TO 4:1F i4=il THEN 3500 [2102] 

3490 IF X(2,i4)=jl AND y(2,i4)=j2 THEN 351 [2872] 

0 

3500 NEXT i4:GOTO 3530 [1441] 

3510 NEXT j2:NEXT jl [819] 

3520 NEXT il:GOTO 3600 [945] 

3530 FOR i2«l TO 4 [1064] 
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Listing—[ 


3540 IF X(l,i2)=0 OR y(l,i2)=0 THEN 3580 
3550 ll=xU/i2) :12=y{l,i2) 

3560 dl=ABS(jl-11):d2=ABS(j2-l2):sum=dl+d2 

3570 IF sunKweite THEN ll»3l:l2=j2:GOSUB 4 

060:IF inn<2 THEN weite=sum:pl=kl :p2=k2:ol= 

jl:o 2 =j 2 :q=il 

3580 NEXT i2 

3590 GOTO 3510 

3600 11=01:12=02 

3610 kl=pl:k2=p2 

3620 il=q 

3630 ' 

3640 ' 

3650 ■ Computer zieht 
3660 ' 

3670 ' 

3680 IF weite=16 THEN LOCATE 1,8:PRINT"Ich 
kann nicht!”:GOTO 3770 
3690 LOCATE 6,5:PRINT k2;:L0CATE 6,5:PRINT 
CHR$(kl+64); 

3700 FOR i=l TO 500:NEXT i 

3710 LOCATE 6,6:PRINT 12;:L0CATE 6,6:PRINT 
CHR$(11+64); 

3720 WINDOW SWAP 0,1 
3730 PRINT CHRS(22) 

3740 LOCATE kl*2,k2*2:PEN feld(kl,k2):PRIN 
T feldS; 

3750 LOCATE 11*2,12*2;PEN 3:PRINT figS; 

3760 x{2,il)=ll:y(2,il)=12 

3770 IF INKEY$<>'"'THEN 3770 

3780 IF p=l THEN t(2)=t(2)+l:IF t(2)>=4 TH 

EN WINDOW SWAP 0,1:GOTO 3890 

3790 IF INKEyS="’'THEN 3790 

3800 REM 

3810 IF pol THEN 3830 
3820 x(l,i2)=0:y(l,i2)=0 
3830 GOTO 2960 
3840 


Ein Spieler hat gewonnen! 


3850 
3860 
3870 
3880 

3890 CLS:INK 2,fp2,fp3:INK 3,fp3,fp2 
3900 PEN 2:PRINT:PRINT 

3910 IF sp=l AND zug=2 THEN PRINT''ICh habe 
gewonnen!:GOTO 3950 
3920 IF sp=l THEN PRINT”Du hast gewonnen!” 

:PRINT:PRINT”Herzlichen”:PRINT” Glueckw 
unsch!":GOTO 3950 

3930 PRINT"Spieler";2ug:PRINT"hat gewonnen 
I" 

3940 PRINT:PRINT"Herzlichen”:PRINT” Glu 
eckwunsch!” 

3950 PEN 1:LOCATE 1,10:PRINT”Druecke eine 

* 

3960 WHILE INKEYSo”" :WEND 
3970 WHILE INKEYS="":WBND 
3980 CLS:INK 2,fp2:INK 3,fp3 
3990 WINDOW SWAP 0,1:PRINT CHR$(22) 

4000 FOR il=l TO 8:FOR i2=l TO 8:PEN feld( 
il,i2):LOCATE il*2,i2*2:PRINT feldS;:NEXT 
i2:NEXT il 
4010 RESTORE 

4020 FOR il=l TO 2:FOR i2=l TO 4:READ X(il 
,i2),y(il,i2):PEN il+l:LOCATE x(il,i2)*2,y 
Ul,i2)*2:PRINT fig$;:NEXT i2:NEXT il 
4030 tU)=0:t(2)=0 
4040 WINDOW SWAP 0,1:GOTO 1640 
4050 RETURN 

4060 ll(l)=0:ll(2)=0:ll(3)=0:ll(4)=0:mn=0: 

IF kl=ll THEN 4350 

4070 IF k2=l2 THEN 4410 

4080 S=l:IF kl>ll THEN S=-l 

4090 yy=k2 

4100 FOR zz=kl+s TO 11 STEP B 
4110 GOSUB 4320 
4120 NEXT ZZ 

4130 IF mn=l THEN 11(1)=1 
4140 inn=0 

4150 s=l:IF k2>l2 THEN s=-l 
4160 zz=kl:FOR yy=k2+s TO 12 STEP s 
4170 GOSUB 4320:NEXT yy 
4180 IF mn=l THEN 11(2)=1 


[1662] 

[1581] 

[1668] 

[5699] 


[444] 

[507] 

[1072] 

[693] 

[534] 

[117] 

[117] 

[1333] 

[117] 

[117] 

[1935] 

[3060] 

[806] 

[2805] 

[1031] 

[984] 

[4128] 

[2209] 

[980] 

[940] 

[3674] 

[586] 

[272] 

[1433] 

[1047] 

[395] 

[117] 

[117] 

[1656] 

[117] 

[117] 

[1153] 

[849] 

[4054] 

[7341] 


[3544] 

[2450] 

[3609] 

[1786] 

[1607] 

[1083] 

[1574] 

[6046] 


[621] 

[8375] 


[940] 

[1836] 

[555] 

[2579] 

[1801] 

[829] 

[570] 

[1507] 

[1065] 

[458] 

[223] 

[188] 

[1564] 

[2150] 

[1741] 

[423] 


4190 mn=o [188] 

4200 S=l:IF kl>ll THEN S=-l [829] 

4210 yy=l2:FOR ZZ=kl TO ll-s STEP s [2111] 

4220 GOSUB 4320 [1065] 

4230 NEXT ZZ [458] 

4240 IF mn=l THEN 11(3)=1 [303] 

4250 mn=0 [188] 

4260 s=l:IF k2>l2 THEN S=-l • [1564] 

4270 ZZ=ll:FOR yy=k2 TO 12-S STEP S [2018] 

4280 GOSUB 4320:NEXT yy:IF nin=l THEN 11(4) [3390] 
=1 

4290 IF 11(1)+11(4)>0 THEN mn=l ELSE mn=0 [2173] 
4300 IF 11(2) + 11(3)>0 THEN inn=inn+l [1481] 

4310 RETURN [555] 

4320 FOR hjl=l TO 2: FOR hj2=l TO 4 U84a] 


4330 IF X(hjl,hj2)=Z2 AND y(hj1,hj2)=yy TH [2891] 
EN mn=l 

4340 NEXT hj2:NEXT hjl:RETURN 
4350 2Z=kl:ll=l;s=l:IF k2>l2 THEN s=-l 
4360 FOR yy=k2 TO 12 STEP S 
4370 IF yy=k2 OR yy=12 THEN 4390 
4380 GOSUB 4320 
4390 NEXT yy:ll=ll+n)n 
4400 mn=ll:RETURN 

4410 yy=k2:ll=l:s=l:IF kl>ll THEN s=-l 
4420 FOR ZZ=kl TO 11 STEP S 
4430 IF 2Z=kl OR 2Z=11 THEN 4450 
4440 GOSUB 4320 
4450 NEXT zz:ll=ll+mn 
4460 inn=ll 
4470 RETURN 


HotPlot 


System: 

CPC 464/664/6128 

Datenträger: 

Kassette/Diskette 

Info: 

Kassettenanpassung im Text be- 


schrieben 


[2754] 

[2176] 

[2419] 

[1540] 

[1065] 

[1150] 

[660] 

[3345] 

[2375] 

[1633] 

[1065] 

[632] 

[ 101 ] 

[555] 


10 • [117] 

20 ' PLOTTING [917] 

30 ■ [117] 

40 MODE 0;BORDER 0:INK 0,0:INK 1,0:INK 2,0 [4386] 

:INK 3,0:INK 4,0:INK 5,0:INK 6,0:INK 7,0:1 
NK 8,0:SPEED INK 10,10 

50 LOAD "plot.pic" [1647] 

60 OPENIN "topplot.dat [1479] 

70 FOR i=l TO 10 [315] 

80 INPUT#9,n$(i) [859] 

90 INPUT#9,SCO(i) [983] 

100 INPUT#9,lev(i) [1502] 

110 INPUT#9,dat$(i) [1293] 

120 NEXT [350] 

130 CLOSEIN [752] 

140 DIM f(10,24),p(6) [994] 

150 xw=ll:yw=l3:ym=13:xb=l:yb=ll [2401] 

160 FOR y=l TO 24 [1109] 

170 FOR X=1 TO 6 [716] 

180 f(X,y)=0 [596] 

190 P(X)=0 [395] 

200 NEXT [350] 

210 NEXT [350] 

220 FOR i=l TO 26 [315] 

230 BORDER INT(i/26*16):INK l,i:INK 2,IN [9509] 

T{i/26*9):INK 3,INT(i/26*14):INK 4,INT(i/2 
6*16):INK 5,i:INK 6,INT(i/26*10),(i/26*20) 

:INK 7,INT(i/26*20):INK 8,INT(i/26*5) 

240 NEXT [350] 

250 ' [117] 

260 ' Symbols [339] 

270 ' [117] 

280 SYMBOL AFTER 48 [1272] 

290 RESTORE 450 [777] 

300 FOR i=0 TO 14 [501] 

310 FOR j=l TO 8 [601] 

320 READ a(j) [763] 

330 NEXT [350] 

340 SYMBOL 200+i,a(1),a(2),a(3),a(4),a(5 [3017] 

),a(6),a(7),a(8) 

350 NEXT [350] 
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Listln 


I 


^60 iiKl:FOR i=0 TO 10 STEP 2 

37? sSa/2)=CHRS(15)+CHRS(ii)+CHR$U00+l 

\+CHRS(a)+CHRS(10)+CHRS(201+1) 

380 ii=ii+l:NEXT 
390 FOR i=0 TO 9 
400 FOR j=l TO B 
410 READ a(j ) 

430 SYMBOL 48 +i,a( 1 ),a(2),a(3),a(4),a(5) 
,a(6),a(7),a(8) 

450 DATA 24,24,60,110,126,62,28,12,30,254, 

255,63,63,63,30,120,0,126,102,126,90,90,66 

102 102.66,90,90,126,102,126,0,0,126,102, 

[02!Ä,10l66^66,102,102,102,102,102,12 

460 DATA 0^^26,126,126,126,126,126,126,126 
,126,126,126,126,126,126,0,0,126,66,126,66 
,126,66,126,126,66,126,66,126,66,126,0,255 
,255,129,129,129,153,189,153,153,189,153,1 
29.129,129,255,255,0,204,0,51,0,204,0,51 

470 DATA 129,129,129,129,195,195,195,195,1 

95.195,195,195,129,129,129,129 

480 DATA 124,68,68,68,68,68,124,0,16,48,16 

,16,16,16,56,0,60,36,4,60,32,36,60,0,60,4, 
4,28,4,36,60,0,16.48,80,144,248,16,56,0,60 

,32,32,60,4,36,60,0,60,36,32,60,36,36,60,0 
,60,4,4,8,16,16,16,0,60,36,36,60,36,36,60, 

0,60,36,36,60,4,36,60,0 ^ c \-rHn4 

4^ manS=CHRS(15)+CHRS(l)+sS(0 :sS 5)-gRS 
(15)+CHR$(8)+S$(5):blockS=CHRS(213)+CHRS(8 
)+CHR$(10)+CHRS(214) 

500 vnirfS=sS(5} ^ ^ 

510 liv=3!sco=0 J lev=0: lef“0.ti—0.bo 1 

520 GOTO 3370 ^ _ 

530 ENV 1 , 5 ,- 1 , 1 :PEN 8:FOR y=l TO 
540 LOCATE l,y:PRINT STRINGS(12,CHRS(212 

)) 

550 NEXT 
560 ' 

570 ' screen 

590 i=5;FOR y=l TO 9 STEP 2 

Tll ^°?Eri:ScATE x,y:PRINT CHRS(143) 

620 LOCATE X,y+1:PRINT CHRS(143) 

630 f(x,y}=-l:f(x,y+i)=-l 

640 p(i+l)=0:NEXT:i=i-l 

elS dSo :!iUxev41: let >1 04 (im(leVO. 3)):: 

THE« ti-SO 

680 tim=ti:GOSUB 1670 
690 FOR y=13 TO 23 STEP 2 
700 FOR X=1 TO 6 
710 art=INT(RND*4)+l 

720 LOCATE x,y:PRlNT s$(art), 

730 f(X,y)=art:f(x,y+1)=art 

740 NEXT 

lll IF^flev MOD 5)=0 THEN GOSUB 3170:G0T0 
770 ELSE IF (lev MOD 7)=0 THEN GOSUB 3190: 
GOTO 7?0 eLsE IF (lev MOD 9)=0 THEK GOSUB 
•? 210 'GOTO 770 ELSE IF (lev MOD 11)“0 THEN 
GOSUB 3230:GOTO 770 ELSE IF ”0° 

THEN GOSUB 3250:GOTO 770 ELSE 770 
770 ' 

780 IF leV>lO THEN 790 ELSE 980 
790 r=(RND*20):IF r>3 AND r<18 THEN 800 EL 

800^y=lNT(RND*20)+2:IF (y MOD 2)=0 THEN y= 

y+1 

810 IF y>21 THEN y=21 
fl70 x=INT{RND*8}'HsIF x>9 THEN X=9 
830 IF f(X,y)<>0 THEN 800 ELSE 840 
840 IF do=0 THEN xb=x:yb=yJGOTO 650 ELSE X 

BSO^PEnSTloCATE x,Y:PRINT J"! 

2:IF y=ll THEN 860 ELSE IF y<ll THEN 870 E 

860 ?rdO=0 THEN p( 1 )=1 :pl=l:GOTO 980 ELSE 
p(l)=l:p2=l:GOTO 980 
oTf) POR xl=X'“l TO 1 STEP“1 
lll ?F £(xa,y)<>-l THEN 970 ELSE 890 


(933] 

[3605] 


[896] 

[492] 

[601] 

[763] 

[350] 

[2781] 

[350] 

[7674] 


[9430] 

[3112] 

[9755] 

[4448] 


[1141] 
[2360] 
[455] 
[1375] 
[2756] 

[350] ' 

[117] 

[744] 

[117] 

[1950] 

[689] 

[2704] 

[1179] 

[1213] 

[874] 

[958] 

[3711] 

[1284] 

[1076] 

[2235] 

[716] 

[1065] 

[ 1120 ] 

[1436] 

[350] 

[350] 

[13855]! 


[117] 

[1370] 

[3995] 

[1926] 

[578] 

[2403] 

[1353] 

[3353] 

[5003] 


[2347] 

[1710] 

[1803] 


R90 IF f(xl,y+2)=-l THEN 900 ELSE 920 
Tol p(xlll)=0:IF do=0 THEN pl=Xl^l:GOTO 

910 ^^IF X<6%HEN p(x+l)=0:GOTO 980 ELSE 9 


[2411] 

[2921] 


80 

920 


IF f(xl+l,y-2)=0 THEN P(xl+1)=0;GOTO 

9?r THEN pl=xl + l:GOTO 940 ELSE p 

2=Xl+l 

940 IF x<6 THEN p(x+l)=0:GOTO 980 ELSE 9 
80 

950 p(Xl+l)=l:IF dO=0 THEN pl=Xl+l ELSE 
x<6 THEN p(x+l)=0:GOTO 980 ELSE 9 

80 

980 IF^lev>19 AND do=0 THEN do=l:GOTO 800 
ELSE 990 

990 EVERY 50,3 GOSUB 2300 
1000 ' 

1010 ' movement 
1020 ' 

1030 PEN i:LOCATE xw,yw:PRINT vmrfStLOCATE 
xw+l,ym:PRINT manS 
1040 GOSUB 1670 

1050 w= 0 :aS=INKEYS:IF a$="’’ THEN 1050 
1060 W=l:IF INKEY(0)=0 OR JOY(0)=1 THEN 10 
70 ELSE IF INKEY(2)=0 OR JOY(0)=2 THEN 109 
0 ELSE IF INKEY(9)=0 OR JOY(0)=16 THEN 115 
0 ELSE 1050 

1070 ' Up - 

1080 IF ym<2 THEN 1050 ELSE yml=ym:ym=ym-2 
:yw=yw-2:GOTO 1110 

1090 ' down _ 

1100 IF ym>22 THEN 1050 ELSE yml=ym:ym=ym+ 
2 ■ vw=vvr+2 :GOTO 1110 ^ 

1110 PEN l:LOCATE ll.ywtPRINT wurfS:LOCATE 
12,ym:PRINT man$:PEN 8:LOCATE 
T STRING$(2,CHR$(212)):LOCATE ll,yml+l:PRI 
NT STRINGS(2,CHRS(212)):GOTO 1050 
1120 ’ 

shot 


[1170] 

[2475] 

[2362] 

[1170] 

[2751] 

[1170] 


[350] 

[3552] 

[1068] 

[117] 

[971] 

[117] 

[4098] 

[821] 

[2434] 

[7552] 


[219] 

[5461] 

[620] 

[4850] 

tl0715]| 


1130 
1140 ' 

1150 FOR XW=10 TO 7 STEP-1 

1160 IF f(xw,yw)=-2 THEN xw=xw+l-.GOTO 12 

1170 ^^^pä^ 8 :LOCATE xw+1 ,ywrPRINT CHRS(212 
):LOCATE xw+ 1 ,yw+l:PRINT CHRS(212) 

1180 LOCATE xw,yw:PRINT wurfS 
1190 NEXT 

1200 FOR XWss6 TO 1 STEP-1 
1210 IF f(XW,yw)=0 THEN 1220 ELSE 1240 
1220 PEN 8:LOCATE xw+1 ,yw :PRINT CHR$(2i2 
^■LOCATE XW+1,yw+l :PRINT CHRS{212) 

12 ^ LOCATE iw, yw:PRINT wurfS:GOTO 1250 
1240 GOTO 1260 

1250 NEXT _ - 

1260 IF f(xw,yw)=-l OR xw=0 OR f(xw,yw)=-2 
THEN xw=XW+i:GOTO 1270 ELSE 1510 
1270 yy^ywiFOR yw*yy+2 TO 23 STEP 2 
1280 IF f(XW,YW)=0 AND yw=23 THEN 1290 E 

1290^^°PEN BiLOCATB XW,yw-2:PRINT CHRS(212 
);LOCATE xw,yw-l:PRINT CHRS ( 212 ):LOCATE xw 
VW:PRINT wurfS-.PEN 8 :LOCATE xw,yw:PRINT C 
HRS (212):LOCATE xw,yw+l:PRINT CHRS(212):yw 
=yra:xw=H;GOTO 1030 

1300 IF f(xw,yw)*0 THEN 1310 ELSE IF f(x 
W,yw)=-2 THEN 1320 ELSE 1370 
1310 PEN 8 :LOCATE xw,yw-2 :PRINT CHRi.(212 
):LOCATE xw,yw-l:PRINT CHR$( 212 ):GOTO 1360 
1320 PEN 8 :LOCATE XW,yw-2:PRINT CHRS(212 
):LOCATE xw,yw-l:PRINT CHRS(212) 

1330 LOCATE xw,yw:PRINT wurfS:yw=yw+2 
1340 PEN 7 :LOCATE xw,yw- 2 :PRINT blockS 

1350 GOTO 1360 _ 

1360 LOCATE xw,yw:PRINT wurfS:GOTO 1380 
1370 GOTO 1390 
1380 NEXT 

1390 IF wurf$=S$(5) THEN 1400 ELSE 1430 
1400 IF f(XW,yw-2)=-2 THEN PEN 7 :LOCATE 
XW.YW-2; PRINT blockS'.GOTO 1410 ELSE PEN 8 . 
LOCATE xw,yw-2:PRINT CHRS( 212 ) :IX)CATE xw,y 
wl: PRINT CHRS (212) 


[117] 

[125] 

[117] 

[1998] 

[2969] 


[6322] 

[2571] 

[350] 
[1179] 
[1985] 
[6322] 

[3281] 

[351] 
[350] 
[2636] 

[ 2121 ] 

[1466] 

[11915]| 


[2343] 

[4725] 

[4543] 

[2835] 

[2878] 

[411] 

[3486] 

[421] 

[350] 

[1078] 

[8768] 
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Listing—| 


1410 LOCATE xw,yw:PRINT CHRS(212):LOCATE {3262] 
xw,yw+l:PRINT CHR$(212) 

1420 IF yw=23 THEN 1430 ELSE WurfS=sS(f( [8442] 
xw,yw+2)):f(xw,yw+2)=f(xw,yw):LOCATE xw,yw 
+2:PRINT s$(f{xw,yw))JPEN 8:LOCATE xw,yw:P 
RINT CHRS(212);LOCATE XW,yw+l:PRINT CHRS(2 
12):GOTO 2020 

1430 IF wurf$<>s$(f(xw,yw)) THEN 1440 EL [2174] 
SE 1460 

1440 IF f{xw,yw-2)=-2 THEN PEN 7:LOCATE [6371] 
XW,yw-2:PRINT block$:GOTO 1450 ELSE PEN 8: 

LOCATE xw,yw-2:PRINT CHR$(212):LOCATE xw,y 
W-l:PRINT CHRS(212) 

1450 GOTO 2040 [355] 

1460 IF f(XW,yW-2)=-2 THEN PEN 7;LOCATE [8819] 
xw,yw-2:PRINT block$:GOTO 1470 ELSE PEN 8: 

LOCATE xw,yw-2:PRINT CHR$(212):LOCATE xw,y 
w-l:PRINT CHR$(212) 

1470 LOCATE xw,yw:PRINT CHRS(212):LOCATE [3262] 
xw,yw+l:PRINT CHRS<212) 

1480 IF yw=23 THEN 1490 ELSE wurf$=S$(f( [8771] 
xw,yw+2)):f(xw,yw+2)=f{xw,yw):LOCATE xw,yw 
+2:PRrNT sS(f(xw,yw)):PEN 8:L0CATE xw,yw:P 
RINT CHR$(212):LOCATE XW,yw+l;PRINT CHRS(2 
12):GOTO 2020 

1490 PEN 8:LOCATE XW,yw:PRINT CHRS(212): [4437] 
LOCATE xw,yw+l:PRINT CHRS(212):GOTO 2020 
1500 LOCATE xw,yw:PRINT wurfS:wurfS=sS(f [3833] 
(xw,yw)) 

1510 IF wurfS=s$(5) THEN 1520 ELSE 1630 [1175] 

1520 PEN 8:LOCATE XW+1,yw:PRINT CHR$(212 [6322] 
):LOCATE xw+1,yw+l:PRINT CHR$(212) 

1530 LOCATE XW,yw:PRINT CHRS{212):LOCATE [3262] 
xw,yw+l;PRINT CHRS(212) 

1540 FOR a=XW-l TO 1 STEP-1 [1841] 

1550 IF f(a,yw)<>0 AND f(a,yw)<>-2 THEN [2739] 

1560 ELSE 1570 

1560 wurf$=sS(f(a,yw)):f(a,yw)=f(xw,yw [2982] 
):LOCATE a,yw:PRINT s$(f(xw,yw)):GOTO 2020 
1570 NEXT [350] 

1580 FOR a=yw+2 TO 23 STEP 2 [1575] 

1590 IF f(l,a)<>0 AND f(l,a)<>-2 THEN [2497] 

1600 ELSE 1610 

1600 wurfS=s$(f( 1 ,a)):f<l,a)«f(xw,yw): [3659] 

LOCATE l,a;PRINT S$ (f(XW,yw)):GOTO 2020 
1610 NEXT:f(l,23}=f(xw,yw):LOCATE 1,23:P [5445] 
RINT sS(f (xw,yw)) :f (xw,yw)=0;xw=ll ;yw=yin:G 
OTO 1030 

1620 wurfS=s$(f(1,yw+2)):f(1,yw+2)=f(xw, [7827] 
yw):LOCATE l,yw+2:PRINT sS(f(xw,yv)):f(xw, 
yw)aO:xw=ll:yw=yrn:GOTO 1030 

1630 IF wurf$<>s$(f(xw,yw)) THEN PEN 8:L [9581] 
OCATE XW+1,yw:PRINT CHRS(212):LOCATE xw+1, 
yw+i:PRlNT CHRS(2i2) :xw=il:yw=yin:GOTO 1030 


ELSE 1520 

1640 ' [117] 
1650 ' Status [205] 
1660 ' [117] 
1670 PEN 1 [549] 


1680 LOCATE 15,8:PRINT ÜSING "f####”;lev [2096] 
1690 LOCATE 15,12:PRINT USING "#####";scO [1813] 
1700 LOCATE 15,16:PRINT USING "#####";liv [2187] 
1710 LOCATE 15,20;PRINT USING [1622] 
1720 LOCATE 15,24:PRINT USING "#####";tim [1346] 


1730 RETURN [555] 
1740 ’ [117] 
1750 ’ fall down [734] 
1760 ' [117] 
1770 FOR y=yw TO 13 STEP-2 [566] 
1780 LOCATE xw,y [685] 


1790 IF f(XW,y-2)>0 AND f(XW,y-2)<5 THEN [6734] 
PRINT sS(f(xw,y-2)):f(xw,y)=f(xw,y-2) ELS 
E PEN 8:PRINT CHR${212):LOCATE xw,y+l:PRlN 
T CHRS(212):f(xw,y)=0 

1800 IF f(xw,y-2>=0 THEN 1820 ELSE 1810 [1145] 


1810 SOUND 1,400,5,,1,,20 [1569] 

1820 NEXT [350] 

1830 RETURN [555] 

1840 • [117] 

1850 ’ level done [2023] 

1860 ’ [117] 

1870 d=REMAIN(3) [1554] 


1880 PEN 8:LOCATE xb,yb:PRINT CHR$(212):LO [5272] 
CATE xb,yb+l:PRINT CHRS<212):f{xb,yb)=0:p( 
pl)=0 


1890 IF do=l THEN LOCATE xbl,ybl:PRINT CHR [7272] 
$(212):LOCATE xbl,ybl+l:PRINT CHR$(212):f( 


xbl,ybl)=0:p(p2)=0 ELSE 1900 

1900 PEN 8:FOR y=13 TO 24 [1047] 

1910 FOR X=1 TO 6 [716] 

1920 LOCATE X,y:PRINT CHRS(212) [1115] 

1930 NEXT [350] 

1940 NEXT [350] 


1950 PEN llLOCATE 2,12:PRINT "TIME BONUS" [1934] 
1960 LOCATE 5,14:PRINT USING "###";tim*10 [2464] 

1970 FOR z=l TO 1000:NEXT:PEN 8:LOCATE 2,1 [5974] 
2:PRINT STRINGS(10,CHRS(212 ))tLOCATE 5,14: 

PRINT STR1NGS(3,CHRS(212)) 

1900 sco=sco+tim*10:GOSUB 1670:xw=ll:yw=ym [4697] 
:wur£S=»sS(5) :G0T0 660 

1990 ' [117] 

2000 ' scorage [536] 

2010 ' [117] 

2020 GOSUB 3100:sco=sco+f(xw,yw)*10;GOSUB [9006] 

3300:lef=lef-l:GOSÜB 1670:IF lef=0 THEN 18 
70 ELSE f(XW,yw)=0:GOSUB 1770;GOTO 2090 
2030 lef=lef-l:GOSUB 1670:IF lef=0 THEN 18 [5636] 
70 ELSE £(XW,yw)=0:G0SUB 1770:GOTO 2090 


2040 xw=ll:yw=ym [1249] 

2050 xw=ll:yw=ym:GOTO 1030 [1746] 

2060 ’ [117] 

2070 ’ test for miss [1079] 

2080 ' [117] 

2090 FOR X=1 TO 6 [716] 

2100 FOR y=13 TO 23 STEP 2 [2235] 

2110 IF f(x,y)<>0 THEN 2120 ELSE 2140 [1310] 

2120 IF sS(f{X,y))=wurf$ THEN 2130 ELS [2205] 

E 2150 

2130 IF p(x)=0 THEN 2260 ELSE 2150 [839] 

2140 NEXT [350] 

2150 NEXT [350] 

2160 POR y=13 TO 23 STEP 2 [2235] 

2170 FOR x=10 TO 1 STEP-1 [1149] 

2180 IF f(X,y)=0 THEN 2200 ELSE 2190 [1667] 

2190 IF f(x,y)=-2 THEN 2210 ELSE IF sS [5216] 

(f {X,y) )*=wurf$ THEN 2260 ELSE 2210 
2200 NEXT [350] 

2210 NEXT [350] 

2220 PEN l:LOCATE 8,23:PRINT "MISS" [1210] 


2230 FOR 2=15 TO 0 STEP-l:SOUND 7,2000,10, [2341] 
z:NEXT 

2240 PEN 8:LOCATB 8,23:PRINT STRINGS(4,CHR [2375] 

S(212)) 

2250 liv=liV-l:GOSUB 1670:IF liv=0 THEN 23 [3093] 
60 ELSE wurfS=s$(5):GOTO 2050 


2260 GOTO 2050 [361] 

2270 ' [117] 

2280 ' time [362] 

2290 * [117] 

2300 tim=tim-l:SOUND 1,100,1:IF tim=0 THEN [2917] 

2360 

2310 IF W=1 THEN RETURN ELSE GOSUB 1670 [1976] 

2320 RETURN [555] 

2330 ' [117] 

2340 ' end of game [688] 

2350 ' [117] 

2360 d=REMAIN(3) [1554] 

2370 OUT &BCOO,8:OUT &BD00,l:FOR i=400 TO [4884] 

100 STBP-2:SOUND 1,i,2,INT(20-i/20),,,29 :N 
EXT 

2380 FOR dl=l TO 2:ex=15 [1031] 


2390 FOR n=l TO 4:INK 8,INT(RND*27):OUT &B [5456] 
C00,7:OUT &BD00,30+n:OUT &BCOO,2:OUT &BD00 
,46-n:FOR v=l TO ex;NEXT:NEXT 

2400 FOR n=33 TO 26 STEP-1:INK 8,INT(RND*2 [7132] 
7);OÜT &BC00,7:OÜT &BDO0,n:GOSÜB 2460:POR 
V=1 TO ex:NEXT:NEXT 

2410 FOR n=43 TO 50:INK 8,INT(RND*27):OUT [6928] 
&BCOO,2:OUT StBD00,n:GOSUB 2460:FOR V=1 TO 
ex:NEXT:NEXT 

2420 FOR n=27 TO 34:INK e,INT(RND*27):OÜT [3939] 
&BCOO,7:OüT SBDOO,n:GOSüB 2460:FOR v=l TO 
ex:NEXT:NEXT 

2430 FOR n=49 TO 42 STEP-1;INK 8,INT(RND*2 [4769] 
7):OUT &BCOO,2:OUT &BD00,n:GOSUB 2460:FOR 
v=l TO ex:NEXT:NEXT 

2440 FOR n=2 TO 4:INK 8,INT(RND*27):OÜT &B [7255] 
COO,7:OÜT &BDOO,34-n:OÜT &BC00,2:OUT &BD00 
,42+n:FOR v=l TO ex:NEXT:NEXT 
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[^Listing 


2450 NEXT dl:GOTO 2470 

2460 SOUND 1 , 0 ,5, 12 ,,,n\2:SOUND 2,0,6,12,, 
,n/2 + 5 rRETURN 

2470 OUT SBCOO,8:OUT &BD00,0:INK 8,5 
2480 IF SCO>SCO(10) THEN 2490 ELSE 2740 
2490 MODE 1:PEN 1 

2500 LOCATE 13,7:PRINT "CONGRATULATIONS" 
2510 LOCATE 4,9:PRINT "You are one of the 
best Plotters!" 

2520 LOCATE 4,ll:PRINT "Please enter" 

2530 LOCATE 17,11:PR1NT "NAME: - 

II 

2540 LOCATE 17,13:PRINT "and":LOCATE 17,15 
:PRINT "DATE: —. —.-" 

2550 LOCATE 22,11:INPUT nS:nS=UPPER$(LEFTS 
{n$,10))iLOCATE 22,ll:PRINT " "+n$+" 

ir 

2560 LOCATE 22,15:INPUT datS:LOCATE 22,15: 
PRINT " "+dat$+" " 

2570 FOR i=l TO 10 

2580 IF SCo(i)<SCO THEN 2590 ELSE 2650 
2590 FOR j=10 TO i+1 STEP-1 
2600 n$(j)=n$(j-l) 

2610 lev(j)=lev(j-1) 

2620 dat$(])=datS{j-l) 

2630 SCO(j)«SCO(j-1) 

2640 NEXT:SCO(i)=sco:datS(i)=datS:iev(i) 

=lev:nS(i)=n$:GOTO 2660 
2650 NEXT 

2660 OPENOUT "topplot.dat" 

2670 FOR i=l TO 10 
2680 WRITE#9,nS(i) 

2690 WRITE#9,sco(i) 

2700 WRITE#9,lev(i) 

2710 WRITE#9,dat$(i) 

2720 NEXT 

2730 CLOSEOUT;sc=l 

2740 MODE l:BORDER 0:IF SC=1 THEN y=3:GOTO 
2750 ELSE y=2:GOTO 2760 
2750 LOCATE 10,1;PRINT "ALL TIME BEST PLOT 
TERS" 

2760 LOCATE l,y:PRINT "RANK NAME SCO 

RE LEVEL DATE " 

2770 INK 2,10:FOR i=l TO 10 
2780 IF SCO{i)=SCO THEN PEN 2 ELSE PEN 1 
2790 IF SC=1 THEN y=i*2+3;GOTO 2800 ELSE 
y=i+3 

2800 LOCATE 2,y:PRINT USING 

2810 LOCATE 6,y:PRINT n$(i) 

2820 LOCATE 17,y:PRINT USING "#####";sco 

(i) 

2830 LOCATE 24,y:PRINT USING "##";lev(l) 

2840 LOCATE 30,y:PRINT datS(i) 

2850 NEXT 

2860 IF SC=1 THEN 2910 ELSE 2870 
2870 LOCATE 7,15:PRINT "These are the best 
Plotters!" 

2880 LOCATE li,17;PRINT "Your score was";s 
CO;"!" 

2890 LOCATE 8,19:PRINT "Try to beat them n 
ext time" 

2900 LOCATE 16,22:PRINT "GOOD LUCK!" 

2910 CALL SBB18 

2920 PEN l:LOCATE 6,25:PRINT "PRESS <1>—S 
TART or <2>—QUIT" :GOTO 3020 
2930 PEN 4:FOR y=l TO 24 

2940 LOCATE l,y:PRINT STRING$(12,CHRS(14 
3)) 

2950 NEXT 

2960 PEN 8:FOR y=l TO 24 

2970 LOCATE l,y:PRINT STRINGS{12,CHRS(21 
2)) 

2980 NEXT 

2990 PEN ItLOCATE 2,10:PRINT "GAME OVER" 
3000 LOCATE 1,12:PRINT "1--New Start" 

3010 LOCATE 1,14:PRINT "2-Quit" 

3020 aS=INKEyStIF a$="" THEN 3020 

3030 IF a$="l" THEN do=0:RUN ELSE IF aS="2 

" THEN CALL 0 ELSE 3020 

3040 ' 

3050 ' music 
3060 ’ 

3070 SOUND 1,239,20:SOUND 1,190,20:SOUND i 
,159,20:SOUND 1,239,60 
3080 RETURN 


[369] 

[4626] 

[2605] 

[1810] 

[1036] 

[3100] 

[5163] 

[2554] 

[2035] 

[3636] 

[4042] 


[3623] 

[315] 

[2203] 

[760] 

[664] 

[728] 

[544] 

[798] 

[4719] 

[350] 

[1950] 

[315] 

[936] 

[1242] 

[ 1221 ] 

[1562] 

[350] 

[1280] 

[3713] 

[2328] 

[4053] 

[513] 

[1583] 

[2237] 

[1994] 

[1118] 

[ 2010 ] 

[1428] 

[1753] 

[350] 

[2314] 

[3540] 

[2576] 

[3916] 

[2673] 

[389] 

[3674] 

[986] 

[2635] 

[350] 

[ 1000 ] 

[2756] 

[350] 

[1468] 

[1789] 

[2322] 

[1445] 

[3844] 

[117] 

[1063] 

[117] 

[3578] 

[555] 


3090 ' [117] 

3100 FOR i=14 TO 2 STEP-2 [921] 

3110 SOUND l,i*50,5,i [1588] 

3120 NEXT [350] 

3130 RETURN [555] 

3140 ' [117] 

3150 ' skill [110] 

3160 ' [117] 


3170 PEN 8:LOCATE 6,1:PRINT CHRS(212):LOCA [4976] 
TE 6,2:PRINT CHR$(212):p(6)=0:f(6,1)=0 
3180 PEN 4:L0CATE 2,9:PRINT CHRS(143):LOCA [6195] 
TE 2,10:PRINT CHRS<143):f(2,9)=-l:p(2)=l:p 
(3)=0:RETURN 

3190 PEN 8:L0CATE 2,9:PRINT CHRS(212):LOCA [4307] 
TE 2,10:PRINT CHRS(212):p(2)=0:fUy9)=0 
3200 PEN 4:L0CATE 3,7:PRINT CHRS{143):LOCA [9233] 
TE 3,8:PRINT CHRS(143):f(3,7)«-l:IF f(2,9} 

=-l THEN p(3)=0:p(4)=OJRETÜRN ELSE p{3)=l: 
p(4)=0:RETORN 

3210 PEN 8:LOCATE 3,7:PRINT CHRS(212):LOCA [6173] 
TE 3,8:PRINT CHRS(212):p{3)=0:f(3,7)=0 
3220 PEN 4:LOCATE 4,5:PRINT CHRS(143):LOCA [7524] 
TE 4,6:PRINT CHRS(143):f(4,S)=-l:IF f(3,7) 

=-l THEN p(4)=0:p(5)=0:RETURN ELSE p(4)=l: 
p(5)=0:RETURN 

3230 PEN 8:LOCATE 4,5:PRINT CHRS(212);LOCA [4095] 
TE 4,6:PRINT CHRS(212):p(4)=0:f(4,5)=0 
3240 PEN 4:LOCATE 5,3:PRINT CHRS<143):LOCA [8985] 
TE 5,4:PRINT CHRS(143):f(5,3)=-l:IF f(4,5) 

=-l THEN p(5)=0:p{6)=0:RETURN ELSE p(5)=l: 
p(6)-=0:RETURN 

3250 PEN 8:LOCATE 5,3:PRINT CHRS(212):LOCA [4486] 
TE 5,4:PRINT CHR$(212):p(5)=0:f(5,3)=0 
3260 PEN 4:LOCATE 6,1:PRINT CHRS(143):LOCA [7771] 
TE 6,2:PRINT CHRS(143):f(6,1)=-1:IF f(5,3) 

=-l THEN p(6)=0:RETURN ELSE p(6)=l:RETURN 


3270 ' [117] 

3280 ' extra life test [1361] 

3290 ’ [117] 

3300 ' [117] 

3310 IF sco>=(bo*3000) THEN 3330 (1530) 

3320 RETURN [555] 

3330 liv=liv+l:GOSUB 3070:GOSUB 1670:bo=bO [1793] 

+1:RETURN 

3340 ' [117] 

3350 ' title SOng MOZART 40 [985] 

3360 ’ [117] 

3370 EVERY 50,2 GOSUB 4080 [1127] 

3380 ENV 1,3,-1,4:ENV 2,3,-l,8:ENV 3,3,-2, [6211] 
4:DIM x( 2 l},y(21),2(12),dauer(21),laut(21) 
,laut 2 ( 2 l),en(21) 

3390 RBSTORE 4050 [924] 

3400 READ al,all,al2,al3,a2,023,a24,a25,83 [4006] 
,a4,a5,a5l,a52,a6,a7,a71,a72 

3410 b=0:c=0:d=0 [1087] 

3420 FOR t=l TO 2 [593] 

3430 FOR i=l TO 3 [435] 


3440 SOUND 10,al,0,15,1:SOUND 17,al3,l [1355] 

2,12 

3450 SOUND 10,a2,0,15,1:SOUND 17,a23,l [2011] 

2 12 

3460 SOUND 49,a2,0,15,1iSOUND 42,a24,0 [3248] 

,15,l:SOUND 28,825,12,12 

3470 SOUND 49,a2,0,12,1:SOUND 42,a24,0 [3827] 

,12,l:SOUND 28,a25,12,12 


3480 

NEXT 



[350] 

3490 

SOUND 

l,a3,0,15,2 


[1341] 

3500 

SOUND 

l,a3,0,15,1 


[1342] 

3510 

SOUND 

l,a4,0,15,1 


[1258] 

3520 

5,1 

SOUND 

17,a5,0,15,l:S0UND 

10,a51,0,l 

[2380] 

3530 

5,1 

SOUND 

17,a5,0,12,l:SOUND 

10,352,0,1 

[2564] 

3540 

SOUND 

l,a5,0,15,1 


[1603] 

3550 

SOUND 

l,a6,0,15,1 


[1743] 

3560 

5,1 

SOUND 

17,al,0,15,l:SOUND 

10,311,0,1 

[2253] 

3570 

5,1 

SOUND 

17,al,0,12,l:SOUND 

10,al2,0,l 

[2812] 

3580 

SOUND 

l,al,0,15,1 


[1349] 

3590 

SOUND 

l,a2,0,15,1 


[1564] 

3600 

5,1 

SOUND 

17,a7,0,15,l:S0UND 

10,a71,0,l 

[2362] 

3610 

5,1 

SOUND 

17,a7,0,12,l:SOUND 

10,372,0,1 

[1970] 
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Listinq—| 


3620 SOUND l,a7,0,15,2 

3630 SOUND l,a7,0,12,2 

3640 RESTORE 4060 

3650 READ al,all,al2,al3,a2,a23,a24,a25,a3 

,a4,a5,a51,a52,a6,a7,a71,a72 

3660 NEXT 

3670 ' 

3680 RESTORE 4000 
3690 FOR i-1 TO 21 

3700 READ x(i) ,y(i ),dauer{i),laut (i ),lau 
t2(i),en(i) 

3710 SOUND 17,x(i),dauer(i),laut(i),en(i 

) 

3720 SOUND 10,y(i),dauer(i),laut2(i) 

3730 NEXT 
3740 ' 

3750 GOTO 3920 
3760 ' 

3770 ' 

3780 ' 

3790 b=l:RESTORE 4050:READ al,all,al2,al3, 
a2,a23,a24,a25,a3,a4,a5,a51,a52,a6,a7,a71, 
a72:GOTO 3430 

3800 b=2:RESTORE 4070:READ al,all,al2,al3, 

a2,a23,a24,a25,a3,a4,a5,a51,a52,a6,a7,a7l, 

a72:GOTO 3430 

3810 SOUND 49,a7,0,15,2 

3820 SOUND 42,a71,0,15,2 

3830 SOUND 28,a72,0,15,2 

3840 SOUND 49,a7,0,12,2 

3850 SOUND 42,371,0,12,2 

3860 SOUND 28,372,0,12,2 

3870 SOUND 49,37,0,9,2 

3880 SOUND 42,a71,0,9,2 

3890 SOUND 28,a72,0,9,2 

3900 C=l:GOTO 3680 

3910 ’ 

3920 RESTORE 4030 
3930 FOR i=l TO 11 

3940 READ x(i),y (i),z(i),laut{i),en(i) 
3950 SOUND 49 ,x(i),0 ,laut{i) ,enU) 

3960 SOUND 42 ,yU),0,laut{i),enU) 

3970 SOUND 28 ,zU), 0, laut (i) ,enU) 

3980 NEXT 
3990 GOTO 3390 

4000 DATA 67,268,12,15,12,1,71,284,12,15,1 

2,1,71,284,24,15,12,2,60,239,24,15,12,2,84 

,338,24,15,12,2,71,284,24,15,12,2,80,319,2 

4,15,12,2,106,426,24,15,12,2,106,426,24,12 

,12,2,67,268,12,15,12,1,71,284,12,15,12,1 

4010 DATA 71,284,24,15,12,2,60,239,24,15,1 

2.2.84.338.24.15.12.2.71.284.24.15.12.2.80 
,319,24,15,12,2,67,268,24,15,12,2,71,284,1 

2.15.12.1.80.319.12.15.12.1.89.358.12.15.1 

2.1.100.402.12.15.12.1 

4020 DATA 106,213,426,0,15,2,106,213,426,0 
,12,2,113,225,451,0,15,2,113,225,451,0,12, 
2 

4030 DATA 106,213,426,15,2,106,213,426,15, 
2,84,169,338,15,2,84,169,338,15,2,80,159,3 

19.15.2.80.159.319.11.2.80.159.319.15.2.80 
,159,319,11,2 

4040 DATA 159,319,638,15,2,159,319,638,11, 
2,159,319,638,7,2 

4050 DATA 100,201,402,402,106,213,213,426, 

67,71,80,159,319,89,119,239,470 

4060 DATA 106,213,426,426,119,239,239,478, 

71,80,84,169,338,100,134,268,239 

4070 DATA 89,179,358,358,100,201,201,402,6 

0,67,71,142,284,80,106,213,426 

4080 IF INKEYS = ’"' THEN RETURN ELSE 4090 

4090 FOR i=l TO 1000:NEXT:GOTO 530 


[1347] 

[1351] 

[938] 

[4006] 

[350] 

[117] 

[934] 

[316] 

[2872] 

[1980] 

[2719] 

[350] 

[ 117 ] 

[489] 

[117] 

[117] 

[117] 

[5871] 


[5893] 


[1207] 

[1550] 

[1754] 

[ 1211 ] 

[1570] 

{1614] 
[1372] 
[1448] 
[1698] 
[749] 
[117] 
[880] 
[314] 
[2551] 
[1674] 
[2024] 
[2279] 
[350] 
[626] 
[10890] 


[8860] 


[4642] 

[6640] 

[2612] 

[4308] 

[3486] 

[2306] 

[1261] 

[ 1110 ] 


10 ’ [117] 

20 ’ PLOTPIC.DAT [1329] 

30 * [117] 

40 MODE 0:BORDER 16;INK 0,0:INK 1,26:INK 2 [5533] 

,8:INK 3,14:INK 4,16:INK 5,26:INK 6,5:INK 
7,20;INK 8,5 

50 ' [117] 

60 SYMBOL AFTER 200 [1432] 

70 SYMBOL 212,0,204,0,51,0,204,0,51 [1833] 

80 PLOT 417,1,l:DRAW 639,1:DRAW 639,399:DR [3375] 

AW 417,399;DRAW 417,1 


90 PLOT 421,389,3:DRAWR 0,-60:DRAWR 20,0:D [2690] 


RAWR 0,20 

lOO DEG;F0R i=180 TO 0 STEP-1 [1090] 

110 PLOT 441+30*SIN(i),369+20*COS{i) {18851 

120 NEXT [350] 

130 DRAWR -20,0:MOVE 425,380:PILL 3 [924] 

140 PLOT 475,389:DRAVm 0,-60:DRAWR 50,0:DR [3251] 
AWR 0,20;DRAWR “30,0:DRAWR 0,40:DRAWR -20, 

0 

150 MOVE 4B0,380:FILL 3 [1705] 

160 FOR i^O TO 360 [686] 

170 PLOT 55H-25*SIN(i),359+30*COS(i) [1592] 

180 NEXTsMOVE 551,359:FILL 3 [1774] 

190 PLOT 583,389:DRAWR 0,-20:DRAWR 15,0:DR [5410] 
AWR 0,“40:DRAWR 20,0:DRAWR 0,40rDRAWR 15,0 
:DRAWR 0,20:DRAWR -50,0 

200 MOVE 585,380:FILL 3 [1978] 

210 FOR y=389 TO 329 STEP-2 [1123] 

220 FOR X=421 TO 623 [1173] 

230 IF TEST(x,y)=3 THEN 240 ELSE 250 [1349] 

240 IF INT(RND*(395-y))<4 THEN PLOT X, [2857] 

y,7:GOTO 250 ELSE 250 

250 NEXT x,y [548] 

260 FOR y=329 TO 389 STEP 2 [1368] 

270 FOR X=421 TO 623 [1173] 

280 IF TEST(x,y)ö3 THEN 290 ELSE 300 [1910] 

290 IF INT{RND*(y-324))<4 THEN PLOT X, [2377] 

y,0:GOTO 300 ELSE 300 

300 NEXT X,y [548] 

310 PEN 3 [547] 

320 LOCATE 15,6:PRINT "LEVEL" [1321] 

330 LOCATE 15,10:PRINT "SCORE" [873] 

340 LOCATE 15,14:PRINT "LIVES" [1312] 

350 LOCATE 15,18:PRINT "ITEMS" [1613] 

360 LOCATE 15,22:PRINT "TIMER" [1533] 

370 FOR y=321 TO 65 STEP-64 [1798] 

380 FOR yl“y TO y-22 STEP-1 [1335] 

390 FOR X=446 TO 610 [787] 


400 IF TEST(X,yl)=3 THEN 410 ELSE 50 [1373] 

0 

410 IF TBST(X-I,yl+1)=0 THEN PLOT X- [2242] 

l,yl+l,7:GOTO 420 

420 IF TEST(X,yl+l)=0 THEN PLOT X,yl [2720] 

+l,7:GOTO 430 

430 IF TEST(x+l,yl+l)=0 THEN PLOT X+ [2881] 

l,yl+l,7:GOTO 440 

440 IF TEST(X-l,yl)=0 THEN PLOT X-1, [2144] 

yi,7:GOTO 450 

450 IF TEST(X,yl)=0 THEN PLOT X,yl,7 [2168] 

;GOTO 460 

460 IF TEST(x+l,yl)=0 THEN PLOT X+1, [1844] 

yl,7:GOTO 470 

470 IF TEST(X-I,yl-1)=0 THEN PLOT x- [2875] 

l,yl-l,7:GOTO 480 

480 IF TEST(x,yl-l)=0 THEN PLOT X,yl [3056] 

-l,7:GOTO 490 

490 IF TEST(X+I,yl-1)=0 THEN PLOT X+ [1998] 


500 NEXT x,yl,y [991] 

510 PEN 4 [562] 

520 FOR y=l TO 24 [1109] 

530 LOCATE 13,y:PRINT CHR$(143); [851] 

540 NEXT [350] 

550 LOCATE 1,25:PRINT STRINGS(13,CHR$(143) [2435] 

); 

560 PEN 8:FOR y=l TO 24 [1000] 

570 LOCATE l,y:PRINT STRINGS(12,CHRS(212 [2756] 

)) 

580 NEXT [350] 

590 DEG:PLOT 98,350,1:DRAWR 0,-90:DRAWR 20 [10258] 


,0:DRAWR 0,20:DRAWR 10,0:DRAWR 0,-20:DRAWR 
20,0:DRAWR 0,60:DRAWR -20,0:DRAWR 0,-20:D 
RAWR -10,0:DRAWR 0,50:DRAWR -20,0:MOVE 108 
,310:FILL 1 

600 FOR i=0 TO 360 [666] 

610 PLOT 193+25*SIN(i),290+30*COS(i) [1766] 

620 NEXT:MOVE 193,290:FILL 1 [962] 

630 PLOT 238,320:DRAWR 0,-20:DRAWR 15,0:DR [5558] 

AWR 0,-40:DRAWR 20,0:DRAWR 0,40:DRAWR 15,0 
:DRAWR 0,20:DRAWR -50,0:MOVE 245,315:PILL 
1 

640 PLOT 82,24Q:DRAWR -20,0:DRAWR 0,-9Q:DR [9486] 
AWR 20,0:DRAWR 0,4O:FOR i=180 TO 0 STEP-1: 

PLOT 82+30*SlN(i),215+25*COS(i):NEXT:MOVE 
e2,215:FILL 1 
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650 PLOT 132,240:DRAWR 0,-60:DRAV/R 50,0;DR 
AWR 0,20:DRAWR -30,0;DRAWR 0,40:DRAWR -20, 
OiMOVE 136,230:FILL 1 

660 FOR i=0 TO 360;PL0T 227+25*SIN(i),210+ 
30*COS(i):NEXT:MOVE 227,210:F:LL 1 
670 PLOT 272,240:DRAWR 0,-20:DRAWR 15,0:DR 
AWR 0,-70:DRAWR 20,0:DRAWR 0,70:DRAWR 15,0 
:DRAWR 0,20:DRAWR -50,0:MOVE 277,235:FILL 
1 

680 FOR y=354 TO 140 STEP-2 
690 FOR X=56 TO 332 

700 IF TEST{x,y)=l AND TEST(X+1,y)<>1 

THEN 710 ELSE 720 

710 PLOT x,y,4:DRAWR INT(RND*15),0:GOT 

0 720 

720 NEXT x 
730 NEXT Y 

740 FOR x=148 TO 288 STEP 70 
FOR Xl=X TO X-50 STEP-2 
FOR y=350 TO 260 STEP-2 

IP TEST(xl,y)=l THEN 780 ELSE 80 


750 

760 

770 

0 

780 

790 

800 

810 


a=RND*((X+10)-Xl) 

IF a<8 THEN PLOT Xl,y,4 ELSE 800 
NEXT y 
NEXT xl 
820 NEXT X 

830 FOR X=112 TO 322 STEP 70 


840 

850 

860 

0 

870 

880 

890 

900 


FOR xl=X TO X-50 STEP-2 
FOR y=240 TO 150 STEP-2 

IF TEST(xl,y)=l THEN 870 ELSE 89 


a=RND*((x+10)-xl) 

IF a<8 THEN PLOT Xl,y,4 ELSE 890 
NEXT y 
NEXT Xl 
910 NEXT X 

920 PLOT 148,168,llDRAWR 0,-16:DRAWR 16,0: 
DRAWR 0,8:DRAWR -9,0 

930 PLOT 172,160tDRAWR 0,-7:DRAWR 8,0 
940 PLOT 184,160:DRAWR 0,-ll:DRAWR -12,0 
950 PLOT 196,153:DRAWR 0,16:DRAWR 8,-5:DRA 
WR 8,5:DRAWR 0,-26 

960 PLOT 212,160:DRAWR 17,0:DRAWR 0,-7:DRA 
WR -17,0 

970 PEN l:LOCATE 2,20tPRINT "PRESS KEY" 

980 SAVE "plot.pic",b,49152,16384 

990 PRINT "PLOT.PIC wurde gespeichert" 

1000 ' 

1010 ' TOPPLOT.INS 
1020 ’ 

1030 OPENOUT "topplot.dat" 

1040 FOR i=l TO 10 
1050 nS(i} = "-" 

1060 sco(i)=0 
1070 levU)=0 

1080 dat$(i) = ‘’--. —.-" 

1090 WRITE#9,n$(i) 

1100 WRITE#9,SCO(i) 

1110 WRITE#9,lev(i) 

1120 WRITE|9,dat$(i) 

1130 NEXT 

1140 CLOSEOUT . ^ 

1150 PRINT "TOPPLOT.DAT wurde gespeichert 


[4417) 

[4515] 

[7900] 


[1396] 

[595] 

[1861] 

[3216] 

[356] 

[359] 

[1518] 

[1740] 

[1183] 

[1869] 

[1691] 

[3197] 

[359] 

[475] 

[356] 

[877] 

[1740] 

[903] 

[2699] 

[1691] 

[3179] 

[359] 

[475] 

[356] 

[3364] 

[2016] 

[1326] 

[2534] 

[2881] 

[2380] 

[1455] 

[1919] 

[117] 

[436] 

[117] 

[1950] 

[315] 

[482] 

[535] 

[592] 

[953] 

[936] 

[1242] 

[ 1221 ] 

[1562] 

[350] 

[902] 

[2736] 


130 REM"- 

140 MEMORY &74FF „ 

150 FOR X=&7500 TO 35951 STEP 20 


Artikel: 

System: 


Schalten und Walten 
CPC 464/664/6128 


10 MEMORY &74FF^. 

20 LOAD"planer.ban",&7500 
30 CALL &95B6 


4471 
'2816] 
'462' 


10 

20 

30 

40 

50 

60 

70 

100 

110 

120 


REM"***************************" 
REM"*** -> SCHALTPLANER <— ***" 

REMM***************************" 
REM"*** ***" 

REM"*** written S designed ***" 

REM"*** by... ***" 

REM"*** Dietmar Gradl ***" 

REM"***-_—***" 

REM"*** S Mai 1989 ***" 

REM"***************************" 


1599' 

1516 

1599 

1220 ' 

2616' 

1129 

2859 

1427' 

1636' 

1599' 


160 : sum=0 
170 : FOR y=0 TO 19 v 

180 : : READ a$:zahl=VAL("&"+aS) 

190 : : sum=suin+2ahl 

200 : : POKE x+y,zahl 

210 : NEXT y 

220 : READ chksumS 

230 : chksum=VAL('’&"+chksum$) 

240 : zeile= (X-St7500)/2+290 

250 : IF chksum^sum THEN PRINT"Zeile ;zeil 

e;"OK.":GOTO 270 ,, „ .. „ „ 

260 : PRINT"Fehler in Zeile: " ;zeile; 

2*70 NEXT 

280 CALL &BB18:RUN"PLANER2.BAS" 

290 DATA OA,OA,00,5A,45,49,43,48,4B,45,CE, 

47,45,4E,45,52,41,54,4F,D2,60F 

300 DATA 45,58,54,45,52,CE,48,41,52,44,43, 

4F,50,D9,42,45,45,4E,44,45,6D3 

310 DÄTA CE,00,56,45,52,53,43,48,49,45,42, 

45,CE,00,4B,4F,50,49,45,52,646 

320 DATA 45,4E,5C,5C,DC,FF,4C,4F,45,53,43, 

48,45,4E,5C,5C,DC,00,48,4F,7A2 

330 DATA 4C,45,4E,5C,5C,5C,5C,5C,DC,00,4E, 

45,55,45,53,5C,54,45,49,CC,711 

340 DATA 00,41,45,4E,44,45,52,4E,5C,5C,DC, 

00,46,41,52,42,45,4E,57,41,5D7 

350 DATA 48,CC,00,42,49,4C,44,SC,4C,41,44, 

45,4E,5C,5C,5C,5C,5C,5C,5C,673 

366 DATA DC,00,42,49,4C,44,5C,53,50,45,49, 

43,48,45,52,4E,5C,5C,5C,DC,6E4 

370 DATA 00,43,41,54,41,4C,4F,47,5C,5C,5C, 

5C,5C,5C,5C,5C,5C,5C,DC,00,66F 

380 DATA 42,41,55,54,45,49,4C,45,5C,53,50, 

45,49,43,48,45,52,CE,00,48,610 

390 DATA 41 , 52, 44 , 43,4F,50,D9,FF,52,41,48, 

4D,45,4E,5C,DC,00,42,45,45,750 

400 DATA 4E,44, 45,CE,00,5A,55,52,55,45,43, 

CB,00,5C,5C,5C,5C,5C,5C,5C,6D2 

410 DATA 5C,5C,5C,5C,DC,00,5C,5C,5C,5C,5C, 

5C,5C,5C,5C,5C,5C,5C,5C,5C,754 

420 DATA 5C,5C,5C,5C,5C,5C,5C,5C,5C,5C,5C, 

5C,5C,5C,5C,5C,5C,5C,5C,5C,730 

430 DATA 5C,5C,5C,5C,5C,5C,5C,5C,5C,5C,5C, 

5C,5C,5C,5C,5C,5C,5C,5C,5C,736 

440 DATA DC,00,42,41,55,54,45,49,4C,45,SC, 

4C,41,44,45,4E,5C,5C,5C,DC,6D7 

450 DATA 00,4E,41,4D,45,BA,00,42,49,54,54, 

45.20.57.41.52.54.45, CE,00,5C4 

460 dAtA 42,49,4C,44,20,57,49,52,44,20,47, 

45,53,50,45,49,43,48,45,52,570 

470 DATA D4'00,5C,5C,5C,SC,5C,5C,5C,5C,5C, 

5C,5C,5C,5C,5C,5C,5C,5C,5C,74C 

480 DATA 5C,5C,5C,5C,5C,5C,5C,5C,5C,5C,DC, 

00,42,49,4C,44,20,57,49,52,6A1 

490 DATA 44,20,47,45,4C,41,44,45,CE,00,42, 

41,55,54,45,49,40,45,20,57,596 

500 DATA 45,52,44,45,4E,20,47,45,53,50,45, 

49,43,46,45,52,04,00,42,41,504 

510 DATA 55,54,45,49,4C,45,20,57,45,52,44, 

45,4E,20,47,45,4C,41,44,45,56F 

520 dAtA CE, 00,41,43,48,54,55,4E,C7,00,44, 

41,54,45,49,20,4E,49,43,48,601 

530 DATA 54,20,56,4F,52,48,41,4E,44,45,CE, 

00,48,49,4E,54,45,52,47,52,5FC 

540 DATA 55,4E,44,5C,BA,00,53,43,48,52,45, 

49.42.46.41.52.42.45, BA,00,617 

550 DATA 5C,5C,5C,5C,5C,5C,SC,5C,5C,5C,5C, 

5C,5C,5C,5C,5C,5C,5C,5C,5C,730 

560 dAtA 5C,5C,5C,5C,5C,5C,5C,5C,5C,5C,5C, 

5C,5C,5C,5C,5C,5C,5C,5C,5C,730 

570 DATA 5C,5C,DC,51,D8,OB,04,72,77,30,56, 

D8,0A,03,7A,77,28,67,Da,12,78F 

580 dAtA 05,80,77,38,70,08,08,02,SA,77,20, 

7A,D8,07,02,8E,77,20,67,D8,766 

590 DATA 0C,0C,92,77,70,4C,C1,37,11,AA,77, 

98,67,D8,1D,05,CC,77,38,5B,7D6 

6o6 dAtA D8,2B,05,06,77,36,29,75,35,75,41, 

75,4D,75,S9,75,64,75,6F,75,7D8 

610 dAtA 7A,75,8D,75,A0,75,B3,75,2D,76,C6, 

75.CF,75,D8,75,E0,75,E8,75,B4F 

626 dAtA E8,75,E8,75,EB,75,Ea,75,E8,75,E8, 

75,E8,75,E8,75,E8,75,E8,75,DA2 

630 dAtA E8,75,F5,75,F5,75,F5,75,F5,75,F5, 

75,F5,75,F5,75,F5,75,F5,75,E17 

646 DATA F5,75,F5,75,F5,75,F5,75,F5,75,F5, 

75,F5,75,F5,75,69,76,69,76,D0E 

650 dAtA 69,76,69,76,69,76,07,77,07,77,07, 

77,07,77,07,77,01,09,02,0B,52A 

660 dAtA 95,04,9D,70,9E,A5,7E,9A,AD,9D,9A, 

B5,BC,9A,0B,15,0C,17,9D,03,BD3 

676 DATA A 5 ,B 0 , 94 ,AD, 96 , 8 F,B 5 ,D 3 ,aF,i 7 ,lE, 

18,2A,8D,05,95,27,94,90,CE,996 

680 dAtA 93Ja5,CF,8E,AD,90,92,B5,FA,92,20, 

29,21,2A,AS,02,AD,DB,9A,B5,AB7 

690 DATA EF,8D,2A,32,2B,33,A5,02,AD,9A,9C, 

B5,99,9C,03,75,00,CO,OB,75,862 

706 DATA OB,CO,14,75,17,C0,lA,75,2O,CO,22, 

75,2A,C0,B1,C4,A1,F5,41,EE,955 


1838] 
447 ] 
1450) 
680] 
1055] 
2454 
694' 
479 
431 
656 . 
1115 
1322 
4601 


4260] 
356] 
177 ^) 
3251] 

[3473] 

[3047] 

[3223] 

[3188] 

[3274] 

[3151] 

[4011] 

[4371] 

[3778] 

[4032] 

[4065] 

[3971] 

[3268 

[3268 

[4312] 

[3369] 

[3366] 

[3040] 

[3455] 

[3334] 

[2810] 

[3214] 

[2963] 

[3503] 

[2845] 

[3268] 

[3268] 

[3489] 

[3224] 

[3857 

[2945] 

[3390] 

[2775] 

[3250] 

[2888] 

[2566] 

[2582] 

[3731] 

[3714] 

[3346] 

[4154] 
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Listing—| 


710 DATA B1,CC, 
FD,B1,D4,3F,0F, 
720 DATA 3C,00, 
00 , 00 , 00 , 00 , 00 , 
730 DATA 00,3C, 

oc,oc,oc,oc,oc, 

740 DATA 0C,0C, 
OC,OC,OC,OC,OC, 
750 DATA 5C,5C, 
45,49,4C,45,20, 
760 dAtA 55,54, 
41,05,00,00,00, 
770 DATA 00,09, 
00,03,00,80,01, 
780 dAtA 02,00, 
F1,6E,96,F2,DB, 
790 DATA E0,F8, 
9C,FC,42,9A,0C, 
800 dAtA A2,F0, 
39,9B,E0,9F,9B, 
810 DATA 42, 9A, 
F3,EB,90,E0,03, 
820 dAtA FC,88, 
A3,7B,C7,7B,EB, 
830 DATA 7C,57, 
OB,70,99,79,99, 
840 dAtA 7A,2F, 
E3,7D,07,7E,2B, 
850 DATA 7E,97, 
99,79,99,79,56, 
860 dAtA 7F,6F, 
23,80,47,80,68, 
870 DATA 80,D7, 
8a,81,AF,81,D3, 

880 dAtA 18,ff, 

00,FF,FF,18,FF, 
890 DATA FF,18, 
00,00,FF,FF,18, 

900 dAta ff,ff, 

FF, 00,00, FF, FF, 
910 DATA 00,FF, 
FF,FF,00,00,FF, 
920 dAtA 00,00, 
18, FF, FF, 00,00, 
930 DATA FF,00, 
FF,18,FF,FF,00, 
940 DAtA ff,ff, 
FF,FF,18,FF,FF, 
950 DATA 18,FF, 
00,FF,FF,ia,FF, 
960 DATA FF, 18, 
00,00,FF, FF, 18, 
970 DATA FF,FF, 
00 , 00 , 00 , 00 , 01 , 
980 DATA 00,00, 
01,00,00, 00, EO, 
990 DATA 00,00, 
00,7F,00,00,18, 
1000 DATA 18,00 
,00,00,01,80,00 
1010 DATA 06,60 
,00,00,00,00,06 
1020 DATA 00,00 
,18,01,00,00,80 
1030 DATA 00,00 
,00,00, 7E, 00,00 
1040 DATA FF,18 
,£0,00,00,01,80 
1050 DATA 00,06 
,18,00,00,00,00 
1060 DATA 00,00 
, 00 , 00 , 00 , 00,00 
1070 DATA 00,00 
,00,10,F8,00,1F 
1080 DATA FF,F0 
,00,00,30,00,00 
1090 DATA 00,00 
,1F,08,C0,10,0F 
1100 DATA 00,30 
,00,40,00,01,CO 
1110 DATA FF,F0 
,0F,FF,F0,02,00 
1120 DATA 00,00 
,00,00,03,00,00 
1130 DATA 00,FF 
,C3,00,00,00,00 
1140 DATA 00,01 
,00,C3,eO,00,CF 
1150 DATA 00,C3 
, 00 , 00 , 00 , 00,00 
1160 DATA 18,00 
,CF,00,FF,F3,FF 
1170 DATA C3,00 
, 00 , 00 , 00 , 00,00 
1180 DATA 01,C3 
,FF,01,C2,aO,01 
1190 DATA 80,00 
,C1,E0,0C,60,18 
1200 DATA 06,83 
,0C,7C,ia,03,Cl 
1210 DATA 01,80 
,0C,10,18,42,30 


01,F5,51,C5,41,E6,A1,ED,A1, 

33,CO,00,3C,ADE 

00,00,00,00,00,51,CO,02,BE, 

00 , 00 , 00 , 00,200 

C0,07,FF,C0,8C,8F,20,0A,00, 

0C,0C,0C,0C,473 

OC,OC,OC,OC,OC,OC,OC,OC,OC, 

0C,0C,5C,5C,19Ö 

5C,SC,5C,5C,2E,4C,41,09,54, 

20,20,42,41,612 

45,49,4C,45,20,20,20,2E,42, 

00,00,00,00,3AE 

DA,OD,OC,F9,00,00,00,00,00, 

80,02,02,00,2FD 

02,FC,7E,01,7E,02,FO,00,96, 

97,F3,4B,98,9B4 

98,20,7C,9E,0B,64,9C,0D,A0, 

ID,Al,7F,49,968 

FE, 9A,F1,18,9B,F2,5D,9B,F3, 
20,C3,9B,FC,D13 
F0,94,90,F1,B4,90,P2,CF,90, 
91,0D,5C,91,C52 
91,13,7B,37,7B,5B,7B,7F,7B, 
7B,0F,7C,33,9A9 
7C,7B,7C,9F,7C,C3,7C,E7,7C, 
79,56,7A,56,9D5 
7D,53,7D,77,7D,9B,7D,BF,7D, 
7E,4F,7E,73,90C 
7E,BB,7E,DF,7E,03,7F,27,7P, 
7A,56,7A,4B,960 
7P,93,7F,B7,7F,DB,7F,FF,7P, 
80,8F,80,B3,AA4 

80, FB,80,IF,81,43,81,67,81, 

81, FF,FF,FF,C2B 

FF, FF,00,FF,FF,18,FF,FF,00, 
FF,00,00,FF,C3C 

FF,FF,00,00,FF,FF,18,FF, FF, 

FF,FF,00,00,BSD 

18,FF,FF,00,00,FF,FF,18,FF, 

18,FF,FF,00,C3C 

FF,18,FF,FF,00,00,FF,FF,18, 

FF,18,FF,FF,CSC 

FF,FF,18,PF,FF,00,00,FF,PF, 

FF,FF,18,FF,B3D 

00,FF,FF,18,FF,PF,00,00,FF, 

00,FF,FF,18,B3D 

00,00,FF,FF,18,FF,FF,00,00, 

OO, 00,FF,FP,C24 

PF, 00,00,FF,PP,18,FF,FF,00, 
FF,00,00,FF,B3D 
FF,FF,00,00,FF,FF,18,FF,FF, 
FF,FF,00,FF,C3C 

10,FF,FF,FF,00,00,00,00,00, 

80,00,00,00,594 

06,60,00,00,00,00,80,18,18, 

60,06,07,00,264 

F9,80,01,9F,00,00,00,FE,00, 

FF,80,01,FF,62D 

,06,FF,EO,07,FF,60,00,01,80 

,06,60,00,00,4CB 

,00,18,18,00,00,18,18,00,60 

,00,80,00,00,lAC 

,01,00,60,00,00,00,00,06,00 

,18,00,06,07,125 

,EO,60,00,01,9F,00,00,F9,aO 

,FE,00,00,01,4D6 

,18,FF,BO,00,07,FF,60,06,FF 

,01,80,00,00,6FB 

,60,06,60,00,00,00,18,18,18 

,06,60,00,00,192 

,00,01,80,00,00,00,00,00,00 

,00,00,00,00,081 

,00,00,00,00,00,OF,FF,PO,08 

,08,00,10,OF,354 

, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00,00 

,0C,00,00,33,25E 

,CO,OF,FF,FO,08,OC,lO,F8,30 

,FF,F0,0C,00,70B 

, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00,00 

,00,01,00,OF,141 

,08,08,10,F8,30,IF,08,40,10 

,00,04,00,00,582 

, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00,00 

,C3,00,00,C3,249 

,C3,FF,00,C3,00,00,C3,00,00 

,00,00,00,00,50A 

,00,00,OE,00,00,IC,00,C3,60 

,00,FF,F3,FF,651 

,00,03,C3,00,0C,C3,00,00,00 

,00,60,00,00,268 

,00,66,00,C3,CO,00,C3,00,00 

,00,C3,00,03,74A 

,OC,C3,00,30,00,00,00,00,00 

,00,00,00,08,1CA 

,9C,01 ,C2,8a,01,C2,80,FF,C2 

,C2,8O,O1,C3,9F0 

,00,00,00,00,00,01,BF,00,03 

,10,18,84,30,444 

,20,03,FF,30,66,83,10,78,84 

,EO,01,BF,00,6D4 

,00,01,BF,00,03,C0,F0,0C,60 

,06,43,20,03,472 


[4655] 

[3473] 

[3366] 

[2891] 

[3025] 

[3319] 

[3906] 

[4192] 

[4033] 

[4756] 

[3113] 

[2841] 

[5205] 

[3422] 

[3590] 

[3656] 

[4530] 

[4173] 

[3708] 

[3932] 

[4463] 

[2397] 

[2513] 

[2310] 

[3643] 

[3748] 

[4088] 

[2357] 

[3605] 

[3542] 

[3558] 

[2016] 

[3150] 

[4298] 

[3156] 

[3740] 

[2605] 

[3242] 

[4310] 

[4304] 

[3209] 

[1750] 

[2545] 

[3417] 

[2411] 

[3024] 

[3376] 

[3857] 

[3519] 

[2888] 

[3655] 


1220 DATA FF 
,C0,F0,01,BP 
1230 DATA 00 
,07,E3,00,07 
1240 DATA 07 
, 00 , 00 , 00,00 
1250 DATA 00 
,FF,30,FF,FF 
1260 DATA E3 
, 00 , 00 , 00,00 
1270 DATA 07 
,FF,07,FF,00 
1280 DATA 00 
,00,77,00,00 
1290 DATA C6 
,OF,C6,O0,OE 
1300 dAtA 00 
,00,07,OP, 00 
1310 DATA 00 
,OF,00,00,00 
1320 dAtA 00 
,0P,C6,00,0P 
1330 DATA OF 
, 00 , 00 , 00,00 
1340 DATA 00 
,FF,FO,FF,FF 
1350 dAtA ff 
,00,00,30,00 
1360 DATA OO 
,FF,0F,FF,F0 
1370 dAtA 00 
,00,40,00,01 
1380 DATA FF 
,0F,FF,F0,02 
1390 dAtA 00 
,00,70,30,00 
1400 DATA 00 
,33,00,00,01 
1410 DATA 00 
,00,1F,C6,00 
1420 DATA 00 
,00,01,80,00 
1430 dAtA CO 
,80,7F,(K),E0 
1440 DATA FF 
,40,Fl, 00, 47 
1450 DATA 47 
,00,7F,10,00 
1460 DATA 00 
,Cl,EO,ia,FC 
1470 DÄTA CC 
,0C,C0,18,03 
1480 DATA 01 
,18,10,lE,44 
1490 DATA FF 
,C1,E0,01,BP 
1500 DATA 7F 
,60,10,03,41 

isiö dAta ff 
,80,00,00,00 
1520 DATA EO 
,50,01,61,00 
1530 DAtA DO 
,00,00,00,7F 
1540 DATA C3 
,31,4C,F8,31 
1550 DATA 20 
,FF,E0,40,00 
1560 DATA OA 
,C0,02,2E,4F 
1570 dAtA 7F 
,20,CO,20,20 
1580 data 31 
,20,20,40,00 
1590 data 00 
,40,00,20,47 
1600 DATA 47 
,20,7F,FF,E0 

1610 dAta 00 

,CO,00,FC,00 
1620 DATA 00 
, 00 , 00 , 00,00 
1630 DATA lE 
,FF,00,00,00 
1640 DATA 00 
, 01 , 00 , 00,01 
1650 dAta 01 
, 00 , 00 , 00,00 
1660 DATA 00 
, 00 , 00 , 00,00 
1670 dAtA 00 
, 00 , 00 , 00,00 
1680 DATA 00 
,01,81,80,00 
1690 DATA 00 
, 00 , 00 , 00,00 
1700 DATA 00 
,66,08,E0,18 
1710 DATA 81 
, 00 , 00 , 00,00 
1720 DATA 01 
,FF,01,24,80 


,30,3E 
, 00,01 
, 00,00 
,FF,00 
,FF,00 
, 00,00 
, 00,00 
,3F,07 
,30,07 
, 00,00 
/0F,00 
,07,B3 
, 00,00 
,44,OE 
,00,0F 
,06,00 
, 00,00 
,07,B3 
,FF,FF 
, 00,00 
, 00,00 
,FE,00 
,FE,00 
, 00,00 
, 00,00 
,FF,0F 
,FO,00 
,00,OC 
,O0,CO 
,OP,FF 
,30,00 
,CO,00 
,FO,OP 
, 00,00 
, 00,00 
,7E,30 
,FF,FF 
,80,00 
, 00,00 
,1F,FE 
,7F,FE 
, 00,00 
,00,FF 
,40,00 
,C0,00 
,F1,00 
,F8,00 
,7F,F0 
,78,10 
,18,20 
,43,40 
,C1,E0 
,80,00 
,30,7E 
,30,06 
, 00,01 
,80,03 
,10,01 
ff,PF 
,00,FF 
,18,10 
,03,FF 
,1C,06 
,FF,E0 
,EO,20 
,CC,30 
,40,00 
,20,CC 
,2E,40 
,82,20 
,FF,E0 
,40,60 
,41,20 
,20,7F 
,00,7F 
,FE,20 
,FE,20 
, 00,00 
,00,00 
,3F,00 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
, 00,00 
,00,00 
,00,IC 
,FF,EO 
,00,00 
,00,00 
,66,00 
,66,00 
,00,00 
,00,FF 
,07,10 
,90,07 
, 00,00 
,3C,80 
,01,24 


,43,10 
,80,00 
, 00,00 
,FF,FF 
,07,E3 
, 00,00 
,00,07 
,FF,30 
,03,30 
, 00,00 
,07,E3 
,00,07 
, 00,00 
,06,86 
,FE,00 
, 00,00 
, 00,00 
,00,07 
,FF,07 
, 00,00 
, 00,00 
,FF,PF 
,0P,C6 
, 00,00 
, 00,00 
,FF,F0 
, 00,00 
, 00,00 
,0F,FF 
,FO,OC 
, 00,00 
, 01,00 
,PF,FO 
,04,00 
, 00,00 
,00,7F 
,FP,7F 
, 01,00 
, 00,00 
,FF,FF 
,00,DF 

,co,oo 
,C0,00 
,FC,40 
,FC,40 
,7F,F6 
,40,F0 
,00,7F 
, 00,00 
,F0,44 
,03,PP 
,01,BF 
,01,BF 
,43,20 
,43,10 
,80,00 
,CO,FO 
,61,DO 
,19,00 
,00,07 
,1C,20 
,FF,FF 
,41,EO 
,40,00 
,46,30 
,2E,43 
,20,7F 
,06,20 
,92,31 
,40,00 
,00,00 
,2E,40 
,31,40 
,FF,EO 
,FF,EO 
,40,00 
,C0,00 
,00,00 
,00,00 
,00,00 
,00,00 
,04,00 
,05,E0 
,00,00 
,00,00 
, 01,00 
, 01,00 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
,00,00 
,FF,PF 
,01,81 
,00,00 
,00,07 
,66,08 
,00,EO 
,00,00 
,01,24 
,80,01 


,1E,42,0C 

,00,58E 

, 00 , 00,00 

,FF,4F7 

,00,07,03 

,oo,ifA 

,03,30,07 
,07,604 
, 00 , 00,00 
,00,14D 
,00,07,FF 
,03,6FD 
, 00 , 00,00 
,0F,177 
,FF,FF,FF 
,00,6C6 
, 00 , 00,00 
,PF,206 
,FF,00,07 
,00,503 
, 00 , 00,00 
,FF,574 
,00,0E,1E 
,00,20E 
,00,00,0F 
,0F,906 
, 00 , 00,00 
,33,25E 
,FO,OF,FF 
,00,BC1 
, 00 , 00,00 
,0F,141 
,FF,FF,PF 
,00,AEC 
, 00 , 00,00 
,F0,2BD 
,F8,00,7E 
,00,6CD 
, 00 , 00,00 
,FF,523 
,C6,01,9E 
,8F,618 
,8F,C0,00 
,00,969 
,00,CO,40 
,00,7D9 
,00,C0,1F 
,10,762 
, 00 , 00,01 
,60,5D0 
,60,OC,43 
,Q0,6EC 
,00,03,CO 
,03,4P4 
,18,44,0C 
,00,54D 
,1C,10,0C 
,03,621 
,OC,07,80 
,81,86F 
,1F,FF,60 
,19,7B0 
,01,FF,00 
,20,5D1 
,2E,43,E0 
,CC,8AF 
,FF,E0,00 
,43,6D1 
,43,02,31 
,20,471 
,00,7F,FF 
,A0,7CA 
,20,31,CO 
,0O,5A0 
,40,00,20 
,3P,5E2 
,20,40,00 
,00,563 
,03,CO,00 
,00,2FD 
, 00 , 00,00 
,00,004 
,00,04,lE 
,00,321 
, 00 , 00,00 
,00,004 
,00,FF,FE 
,00,1FF 
, 00 , 00,00 
,20,03C 
, 20 , 00,00 
,00,21B 
, 00 , 00,00 
,FF,4CB 
,80,06,00 
,00,ICE 
,00,E0,09 
,09,504 
,00,FF,00 
,00,2F7 
,80,01,24 
,3C,5B0 


,62,0C,03 
,07,03,00 
, 00 , 00,00 
,E3,30,07 
, 00 , 00,00 
,00,FF,PP 
, 00 , 11,00 
,0F,FE,00 
, 00 , 00,00 
,E3,00,07 
,OE,07,80 
, 00 , 00,00 
,FF,F0,0F 
, 00 , 00,00 
,FO,FF,FF 
, 00 , 00,00 
,OF,FF,FO 
, 00 , 00,00 
,36,00,70 
,00,1E,06 
,06,01,80 
,81,CO,FF 
, 00 , 00,00 
,FF,78,10 
,BP,00,07 
,30,30,44 
,E0,0C,66 
,60,18,03 
,20,1F,FP 
,F0,00,FF 
,10,03,40 
, 00 , 00,00 
,31,47,CE 
,00,00,7F 
,4C,02,31 
,BO,40,00 
,20,2E,40 
,CO,00,20 
,20,40,00 
,3C,00,03 
, 00 , 00,00 
,00,FC,01 
, 01 , 00,00 
, 00 , 00,00 
, 00 , 00,00 
,IC,00,00 
,06,00,60 
,60,00,00 
,81,90,10 
, 00 , 00,00 
,80,FF,24 


[3388] 

[3789] 

[3549] 

[3555] 

[2477] 

[5659] 

[2034] 

[2351] 

[2379] 

[3431] 

[3506] 

[3387] 

[3490] 

[3242] 

[4255] 

[4304] 

[2387] 

[2665] 

[3642] 

[2812] 

[3721] 

[3499] 

[3129] 

[2503] 

[3860] 

[2770] 

[3676] 

[2809] 

[3517] 

[3854] 

[3193] 

[3444] 

[3779] 

[4423] 

[3358] 

[4869] 

[2723] 

[3815] 

[4524] 

[2710] 

[2148] 

[3328] 

[2494] 

[2521] 

[2256] 

[3237] 

[3010] 

[3244] 

[3096] 

[3218] 

[3698] 
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AMS-Line- 

der direkte Draht zur Firma AMSTRAD 

Aktuelle Informationen von AMSTRAD 


Anfrüstmöglichkeiten 
Für die Aufrüstung des PC 1512 von 
512 auf 640 kByte sind abhängig von 
der Version der Haupiplatine unter¬ 
schiedliche Bauteile notwendig: für die 
ältere Version 18 Chips, für die neuere 
nur sechs Chips. Bitte achten Sie dar¬ 
auf. daß natürlich zuerst der Netz¬ 
stecker gezogen werden muß. Nun 
können Sie die Abdeckung für die Slots 
entfernen und das Gerät aufschrauben. 
Es sind sieben Schrauben zu lösen, um 
das Gehäuseoberteil zu entl^rnen. Bitte 
achten Sie dabei besonders auf das Bat¬ 
teriekabel. Nun nehmen Sie die Front¬ 
blende ab und ziehen das Kabel für die 
Leuchtdiode ab. Bei den PC 1512 mit 
zwei Laufwerken muß das linke Lauf¬ 
werk ausgebaut werden. Der Bereich, 
wo die RAMs einzustecken sind, befin¬ 
det sich auf der Hauptplatine vorne 
links. . 

Bei der älteren Plaiinenversion werden 
18 Stück 4164-15 benötigt. Die.se wer¬ 
den in den freien Stecksockel IC 153 
bis IC 170 gesteckt. 

Die Ausrichtung der Einkerbung muß 
entsprechend den anderen RAMs ge¬ 
schehen. Wichtig ist noch, daß die 
Beinchen der RAMs vorsichtig behan¬ 
delt und richtig in die Fassung gedrückt 
werden. Rechts von den Speicher¬ 
sockeln befindet sich ein Jumper LK4, 
der noch von 512 auf 640 umgesteckt 
werden muß. 

Die neuere Variante der Platine wird 
mit vier 41464-15 (i8polige) und zwei 
4164-15 (16polige) RAM-Chips erwei¬ 
tert. Verfahren Sie wie oben beschrie¬ 
ben. Auch auf dieser Platine muß ein 
Jumper neben der Speicherbank von 
der Stellung 512 auf die Stellung 640 
umgesteckt werden. Sollte die Steck¬ 
brücke durch den Rand des Abschirm- 
bieches verdeckt werden, so muß die¬ 
ses entfernt oder zumindest elwa.s 
hochgebogen werden 
Vergessen Sie beim Zusammenbauen 
nicht, die Stecker des Batteriefaches 
mit den Kontakten auf der Hauptplatine 
zu verbinden. 

Einbau einer Filecard in den PC1512 
oder PC 1640 

Der Einbau einer Filecard in eines die¬ 
ser Gerate ist ohne weiteres möglich - 


auch als zweite Festplatte im HD-Ge- 
rät. Sie sollten dabei nur einige Punkte 
beachten: 

Die Stromaufnahme der Karle sollte 
nicht über 15 bis 17 W hinausgehen, da 
sonst das Netzteil beim Anlaufen der 
Platte überlastet werden könnte. Einige 
- vor allem ältere Filecards - liegen 
deutlich über diesem Wert, die neueren 
Modelle erfüllen aber fast alle diese 
Forderung. 

Sofern es sich bei der verwendeten 
Festplatte um keine “Autopark“-Platte 
handelt, die die Köpfe beim Abschalten 
des Gerätes automatisch in eine Park¬ 
position bringt, müssen Sie ein geeig¬ 
netes PARK-Programm haben; das bei 
unseren Geräten mitgelieferte Pro¬ 
gramm ist auf unsere Fe.stplatlentypen 
ausgefegt und wird nicht mit allen an¬ 
deren Platten einwandfrei arbeiten. 

Zur Installation der mit den Geräten 
ausgelicferien Software können Sie 
beim PC1640 die auf der vierten Dis¬ 
kette im Unterverzeichnis SUPPLE- 
ME vorhandene Datei CONFIG.BAT 
benutzen. Für den PC1512 gibt es dazu 
entsprechend eine fünfte Diskette zur 
Einrichtung der Festplatte. Diese kön¬ 
nen Sie über Ihren AMSTRAD-Händ- 
1er erhalten. 

Einbau eines 3,5-Zoll-Laufwerks' 

Der Einbau eines 3,5-ZoIl-Laufwerks 
ist — entgegen allen anderen Behaup¬ 
tungen — ohne Modifikationen mög¬ 
lich. Der eingebaute Controller kann 
Laufwerke mit 2 x 80 Spuren bis 
720 kByte formatieren (übrigens auch 
5,25-Zoll-Laufwerke; AT-Diskelten 
mit 1.44 MByte (beziehungsweise 1,2 
MByte) können allerdings nicht ver¬ 
wendet werden. 

Einbau: 

Die Probleme liegen hier eigentlich nur 
auf der “mechani.schen Seite“: Sie be¬ 
nötigen Einbauwinkel für das Lauf¬ 
werk und eventuell eine Adapterplatine 
für den Anschluß an den vorhandenen 
großen Platinensiecker und den 
Stecker für die Stromversorgung. 
Betriebssystem: 

Damit das Laufwerk richtig angespro¬ 
chen werden kann, muß dem Betriebs¬ 
system in der CONFIG.SYS-Datei 
mitgeleilt werden, daß ein Laufwerk 


mit 2 X 80 Spuren angeschlossen ist. 
Die Angabe erfolgt bei MS.DOS 3.2 
per 

DRIVPARH=/ä: 01 /f: 02 /h:02 /a:009 /t: 080 
Zusätzliche Änderungen sind nicht 
nötig. 

Mathematischer Coprozessor für 
PC1512/PC1640/PC2086 
Zum Einbau eines mathematischen Co- 
prozes.sors in eines dieser Geräte sind 
keine aufwendigen “Operationen“ nö¬ 
tig: In allen Geräten sind bereits die 
Sockel für den Coprozessor enthalten. 

Der Prozessor — Sie benötigen einen 
8087-2 (8 MHz) — wird nur in den 
Sockel eingesteckt; die richtige Orien¬ 
tierung erkennen Sie an den Kerben am 
IC und Sockel, diese müssen überein- 
stimmen. Es sind keine Steckbrücken 
mehr umzustecken! Der Coprozessor 
wird von Programmen, die einen sol¬ 
chen erfordern (zum Beispiel CAD- 
Programme) direkt erkannt. 
Coprozessor für den PC2286 und 
den PC2386 

In unseren Geräten werden die numeri¬ 
schen Coprozessoren mit dem vollen 
Systemtakl angesprochen. Dies ist ei¬ 
gentlich eher als Vorteil zu sehen. 
Beim PC2286 tritt hier allerdings eine 
Schwierigkeit auf: Intel stellt keinen 
80287 für 12MHz Taktfrequenz her! 
Einige Firmen bieten zu diesem Zweck 
— AMSTRAD steht mit diesen “Be¬ 
dürfnissen“ ja nicht allein — speziell 
ausgetestete Coprozessoren an. Dabei 
handelt es sich um 80287er für 
lOMHz. deren Leistung ausreicht, um 
sie auch unter der höheren Taktfre¬ 
quenz zu betreiben. Die Sache ist völlig 
korrekt, die Proze.ssorcn arbeiten ein¬ 
wandfrei. 

Beim PC2386 benötigen Sie dement¬ 
sprechend einen Intel 80387 für 20 
MHz Taklfrequenz. CMOS ist nicht 
möglich. 


Ihre 
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Briefe—| 


An unsere Leser 

Die Rubrik »Leserbriefe« ist eine Einrichtung für 
alle Leser, die in irgendeiner Form Fragen, Pro¬ 
bleme oder Anregungen zu Produkten, Program¬ 
mierproblemen oder zu unserer Zeitschrift haben. 
Selbstverständlich sind wir bemüht, alle Leserfra¬ 
gen zu beantworten. Doch haben Sie bitte Ver¬ 
ständnis, daß wir nicht alle eingehenden Briefe 
persönlich beantworten können. Oft erreichen uns 
mehrere Briefe zum gleichen Thema, einer davon 
wird dann stellvertretend für alle in unserer Zeit¬ 
schrift beantwortet. 

Ihre PC-Redaktion 


PS: Die Redaktion behält sich vor, Leserzuschrif¬ 
ten in gekürzter Form wiederzugeben 


I»C\V 


Tips zu Submit 

Da SUBMIT vorübergehend 
die Datei “ST5M^59.$$$“ 
auf dem angemeldeten Lauf¬ 
werk anlegt, darf eine Auto- 
Start-Diskette, die dieses 
Kommando benutzt, nicht 
schreibgeschützt sein. Diese 
Einschränkung ist mitunter 
recht ärgerlich. Eine Verän¬ 
derung von vier Bytes sorgt 


dafür, daß SUBMIT ßr die 
Datei “5KS/N59.$$$“ stets 
das Laufwerk M: benutzt. 


SID starten 


# Esubniit.COM 

<Return> 

#S3A9 

< Return > 

0 

<Return> 

0 

<Return> 

0 

<Return> 


< Return > 

#SFE8 

< Return > 

OD 

< Return > 


<Return> 

# Wsubmit.COM 
<ST0P> 

< Return > 

Hermann Bandlow, 
Gr. Oesingen 


I ' , CPC . . _ 

Ordnung ist das halbe Le¬ 
ben (Heft 12/89), Seite 26 

Allen Lesern, die nicht mit 
dem Karteiprogramm zu¬ 
rechtgekommen sind, biete 
ich einen Kopierservice an. 
Gegen Eilsendung einer for¬ 
matierten Diskette und eines 
frankierten Rückunuchlags 
bekommen Sie einen Adreß-, 


Video- und Zeitschrifienver- 
waltung als vorgefertigte An¬ 
wendung. Als Bonus erhal¬ 
ten Sie zusätzlich ein Share¬ 
ware-Programm. 

Richten Sie Ihr Schreiben an 
folgende Adresse: 

A. Stroiczek 
Zum Kindergarten 5 
4950 Minden 

Ein Service, den man nicht 
oft trifft. Ein dickes Danke¬ 
schön an den Autoren. 

(Red.) 

r CPC " ] 

Betrifft Programme aus 
anderen Zeitschriften 
(Heft 5/90) 

Hiermit möchten wir Ihnen 
bezüglich des Leserbriefes in 
Ausgabe 5/90 bezüglich 
“Programme aus anderen 
Zeitschriften “ folgendes mit- 
teilen. 

Unser User-Club kann mei¬ 
stens auch hier helfen, da wir 
über viele Zeitschriften, 
Fachliteratur, Programme 
und nicht zuletzt CPC-Spe- 
zialisten verßgen. 

Sei es ein Problem mit einem 
abgetippten Programm aus 
einer anderen Zeitschriß 
oder einem selbstgeschriebe¬ 
nen — wir helfen, wo wir 
können. Wir haben auf alle 
Jahrgänge/Ausgaben der PC 
Amstrad International, 
Schneider Magazin , Compu¬ 


ter Partner Zugriff, ebenso 
auf unzählige Bücher. Bei 
Problemen mit Programmen 
aus anderen Zeitschrißen 
wie CPC-Welt müßte uns 
auch eine Kopie der entspre¬ 
chenden Seiten des Heßes 
?nit übersandt werden! 
Außerdem .sollte ein fran¬ 
kierter Rückumschlag (1,00 
DM) sowie eine lose Brief¬ 
marke zu 0,20 DM beiliegen. 
Für Probleme mit CP/M 
Plus, Turbo Pascal, dBa.se II 
und BASIC LI senden Sie 
das Schreiben bitte zu Hän¬ 
den Herrn Kogler, bei allen 
anderen Problemen (auch 
BASIC 1.0) zu Händen 
Herrn M. Behrendt. 

Wir verßgen über alle CPC- 
Typen in den unterschied¬ 
lichsten Konfigurationen. 
Anschriß: 

CPC-User-Club Colonia, 

Im Vogelsang 17, 

5000 Köln 50 

CPC-User-Club, 
Mike Behrendt 

P.S. : Gilt noch Ihr Angebot 
von früher, Club-Anzeigen 
mit Bild kostenlos zu veröf¬ 
fentlichen ? 

Wir waren erstaunt, daß hier 
eine großzüge Hilfe angebo- 
ten wird, und wir hoffen, daß 
Ihr Angebot genutzt wird. 
Auch hier ein dickes Danke¬ 
schön für die dargebotene 
Hilfe. 

Clubanzeigen werden wei¬ 
terhin kostenlos aufgenom¬ 
men, aber leider ist das mit 
dem Bild nicht möglich. 

(Red.) 


_ O^C _ 

Mehr Text mit ConText 

In Heß 1/90 der PCI be¬ 
schrieb ich in dem Beitrag 
“Mehr Text mit ConText“ die 
Nutzung der zweiten 64- 
kByte-Bank des CPC 6128 
ßr dieses Textverarbeitungs¬ 
programm. Da es mir mit der 
Zeit zu mühsam wurde, im¬ 
mer wieder auszusteigen — 
umzuschalten — einzustei¬ 
gen, habe ich schließlich ein 
paar Stunden Schlaf geopfert 
und das Um.schalten der ein¬ 
zelnen Blöcke, das Löschen 
der außretenden Streifen und 
dazu noch das Umschalten 
der User-Ebenen in das Pro¬ 


gramm CONTEXT. BAS inte¬ 
griert. 

Herr Uphoff möge mir bitte 
verzeihen, daß dabei der im 
Programm enthaltene, schö¬ 
ne Taschenrechner dran 
glauben mußte! 

Wer Interesse an meiner neu¬ 
en Version hat, möge sich 
bitte mit mir in Verbingimg 
setzen. Ich will ihm gegen 
Kostenerstattung gern eine 
Kopie zusenden. 

Übrigens ist meine Version 
nicht nur in den vorstehen¬ 
den Punkten geändert, son¬ 
dern auch hinsichtlich der 
Tastenbelegung, da ich in¬ 
folge einer Kriegsbeschädi¬ 
gung nur die linke Hand ge¬ 
brauchen kann! 

Helmut Felber, 
Edith-Stein-Str. 12, 

5000 Köln 80 


_ Vllgcinein _ 

Bericht der Zukunft 

In Ihrem Bericht “Der CPC 
der Zukunß“ in Heß 6/7 
1990 schrieben Sie am An¬ 
fang, daß sich ein CPC-Be- 
sitzer mit Diskettenlauß'erk 
und Grünmonitor ziemlich 
blöd gegenüber so einem An¬ 
geber von AT-Besitzer Vor¬ 
kommen muß. Ich habe 
schon lange eine Lö.sungßr 
dieses Problem! 

Ich spreche nicht mehr von 
einem Amstrad CPC 6128, 
sondern von einem “Allan 
Malcom Sugar Trading Co- 
lour Personal Computer six- 
one-two-eight“ mit integrier¬ 
tem 3-Zoll-Diskettenlaufwerk 
sowie “CTM-664-Monitor“. 
Das eingebildete Gegenüber 
wird jetzt ein “Kenn' ich 
nich ' — was is'n das ßr ei¬ 
ner?“ von sich geben. Zu¬ 
sätzliche Hardwareerweite¬ 
rungen können noch extra 
gepriesen werden. Beispiel: 
Mein DMP 2160 ist ein “Al¬ 
lan Malcom Sugar Trading 
Dot Matrix Printer two- 
one-six-zero “. 

Auch der Z80 sollte zum Zi- 
log 80 A befördert werden. 
CP/M als “Control Program 
for Microcomputer“. Das ist 
kein Scherz, es hat bei mir 
schon mehrmals geholfen. 
Nebenbei kann noch erwähnt 
werden, daß diese ’Wunder- 
maschine' Multitasking-fä- 
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hig ist. Aber Immerschön hei 
der Wahrheit hieihen! 

Stefan Sommer, 
Murnau 

Wir wollten mit unserem Be¬ 
richt niemanden angreifen. 
Der Artikel beschäftigt sich 
auf humoristische Weise mit 
möglichen weiterführenden 
Aspekten der CPC-Benut- 
zung und gedanklichen 
Wunschvorstellungen eines 
(un)möglichen CPCs. 
Trotzdem hat uns Ihre Be¬ 
schreibung der anderen Art 
gut gefallen. 

(Red.) 



Tip zu ConText 

Als ich wieder einmal aus 
ConText aussteigen mußte, 
um auf das Laufwerk B um¬ 
zuschalten , wurde es mir zu 
dumm. Also habe ich eine 
Umschaltmöglichkeit von 
Laufwerk A nach Laufwerk B 
eingebaut. 

Hier die Änderungen: 

30 driv$=“A“ 

240 PEN 2. LOCATE 15,1: PRINT “C 
0 N T E X T“: PRINT "Drive 
"driveS;" 

521 IF INKEY (69) =128 THEN 
lA:drive$="A“:G0T0 54l 

522 IF INKEY (54)=128 THEN 
lB:driv$="B“:G0T0 541 

2190 LOCATE x,y:PRINT “ " 

2191 IF INKEY (693=128 THEN 
lA:ärive$=“A":G0T0 541 

2192 INKEY (54)=128 THEN 
lB:driv$="B“:G0T0 54l 

2193 RETURN 

Ist Zusatz.OOl (ConTexl- 
Verkaufsversion) nicht in¬ 
stalliert, so muß noch Zeile 
Nr. 541 eingefügt werden. 
Jetzt kann mit CTTiL (A) oder 
CTRL (B) umgeschaltet 
werden! 

Ramsebner Peter. 
Bregenz 


_ CPC _ 

Uniter-Änderungen (Heft 
3/90), Seite 24 bis 28 

Nach Eingabe der drei Li- 
stings von “Uniter'' und dem 
Starten des Vorprogramms 
(mehrstinunige Melodie zum 
Vorspann - hörenswert!) 
und dem Starten des Haupt- 
Programms geriet mein CPC 
6128 nach Ausgabe des 
schachbrettartigen Spielfel¬ 


des stark in Verwirrung. Er 
löschte dauernd das Spiel- 
feld. 

Nach einer Fehlersuche habe 
ich folgende Änderungen 
vorgenommen: 
iMdeprogramm: 
UNITER.BAS 

200 SYMBOL AFTER 32' (Rest der 
Zeile entfälltl) 

360 löschen 
370 löschen 

UNITER.PRG: 

76 SYMBOL AFTER 256: MEMORY 
&7FFF: SYMBOL AFTER 32 
90 LOAD "UNITER.GRA‘‘,&9000: 
LOAD "UNITER.MC‘',&9000: 

92 CALL &9031:m=l 
95 PEN 2 

Jetzt läufi das Programm 
auch auf meinem CPC 6128. 

Hans Sivkovich, 
Hamburg 

Das Programm läuft bei uns 
einwandfrei, aber wenn bei 
Ihnen die gleichen Effekte 
auftreten, dann sollten Sie 
diese vorgeschlagenen Än¬ 
derungen vornehmen. 

(Red.) 


PCW 


Hinweise zum Artikei 
JUCA (PCi 12'8g) 

Etwa in der Mitte der Datei 
MV0000.CMD finden Sie 
eine Stelle, wo JUCA auto¬ 
matisch Datenbanken mit 
Hilfe einiger Strukturdateien 
anlegt: 

STORE progrlw + ’mvpersst' TO 

dsteil 

usw. 

CREATE mvpers FROK Mateil 

Die Struktur der Strukturda¬ 
tei MVPERSST ändern Sie, 
indem Sie nicht auf diese Da¬ 
tei zugreifen, .sondern auf die 
Datei MVPERS.DBF. Ver¬ 
fahren Sie am besten so: 
Fertigen Sie von der JUCA- 
Startdiskette eine Kopie an, 
und .starten Sie diese. Vom 
llauptmenü aus kehren Sie 
zur CP/M-Ehene (LWM>) 
zurück. Mit 

M>MVC.SUB [RETURN] 

kommen Sie zur dBase- 
Ebene. 

Weiter mit: 

. USE MVPERS [RETURN] 

. LIST STRUC [RETURN] 

. MODI STRUC [RETURN] 

Auf ’MODIFY löscht alle 
Datensätze... ‘ antworten Sie 
mit 'J'. Nehmen Sie die Än¬ 


derungen vor; speichern Sie 
mit (ALT} IWf ab. 

Die neue Strukturdatei er¬ 
stellen Sie mit: 

. COPY STRUCTURE EXTENDED TO 
MVPERSST [RETURN] 

Überz.eugen Sie sich vom Er¬ 
gebnis: 

. USE MVPERSST 
. LIST STRUC [RETURN] 

. LIST [RETURN] 

Kehren Sie zur CP/M-Ebene 
ins LWM> zurück mit: 

. QUIT [RETURN] 

Sichern Sie die neue Struk¬ 
turdatei auf der Diskette: 

M>PIP A:=M:MVPERSST.DBF [RE¬ 
TURN] 

Verfahren Sie ebenso mit den 
Dateien MVLEG.DBF bezie¬ 
hungsweise MVGR UPPE 
.DBF, um die Strukturdatei¬ 
en MVLEGST.DBF bezie¬ 
hungsweise MVGRPSTR 
.DBFzu ändern. 

Bei der Datei MVGRPSTR. 
DBF verfahren Sie so: 

. CREATE TEST FROK MVGRPSTR 
[RETURN] 

. USE TEST [RETURN] 

. LIST TEST [RETURN] 

. MODI STRUC [RETURN] 

Die Frage ’MODIFY.. ’ mit 
J' beantworten. Nach dem 
Ändern ahspeichem mit 
{ALT} [WJ. Danach weiter 
mit: 

. COPY STRUCTURE EXTENDED TO 
MVGRPSTR [RETURN] 

. USE MVGRPSTR [RETURN] 

. LIST STRUC [RETURN] 

. LIST [RETURN] 

. QUIT [RETURN] 

H>PIP A:=M:MVGRPSTR.DBF [RE¬ 
TURN] 

Detlef Gehring 


_ Allgemein _ 

Chinon-Laufwerk 
F 353-3,5“ 

Beim Durchlesen der PCI 
vom Mai 1990 .stieß ich auf 
die Leseranfrage des Herrn 
Jan Schneider aus Königs¬ 
lutter. 

Da ich mir das gleiche Lauf¬ 
werk zugelegt habe, bin ich 
in der Lage. Hilfe zu leisten. 
Da wäre zuerst das Problem 
der Stromversorgung: 

Das oben genannte Laufwerk 
arbeitet mit zwei voneinan¬ 
der getrennten Spannungen. 
Ganz außergewöhnlich ist 
jedoch die Tatsache, daß 
nicht wie üblich fünf und 12 
Volt zum Einsatz kommen. 


sondern fünf und 7,5 Volt. 
Durch Ausmessen der ICs 
der CD-Reihe (Positiv an Pin 
14 beziehungsweise Pin 16), 
findet man, so komisch es 
klingt, den Fünf-Voh-An- 
schluß. Die beiden Pins in 
der Mitte des Anschlusses 
liegen gemeinsam auf 
Masse. 

Folglich muß der noch freie 
Anschluß mit 7,5 Volt ver¬ 
sorgt werden. Die Frage 
nach dem Shugard-Bus ist 
schnell beantwortet. Es 
kommt ein 34poliges Kabel 
zum Ein.satz, hei dem ledig¬ 
lich Pin 32 (SIDE) nicht be¬ 
legt wird. 

Der Jumper zur Selektierung 
muß auf die Position 1. Da¬ 
mit wären alle Vorarbeiten 
erledigt. Bleibt das Problem 
des Formatierens. Dieses 
habe ich folgendermaßen ge¬ 
löst. 

Unter CP/M mit ’COPY- 
DISC' braucht man es erst 
garnicht versuchen, da nach 
dem Start ein Write Error 
aufiritt. 

Hat man aber das Glück und 
i.st Besitzer des Programms 
Locksmith, ja dann sieht das 
ganze schon akzeptabler 
aus. Wie man Locksmith 
handhabt, brauche ich ja 
nicht zu beschreiben. Nach 
dem Aufruf dieses Pro- 
gramm.i wählt man die Op¬ 
tion A und danach Option R 
(Backup). Die Frage nach 
den Laufwerken werden mit 
(Source) A und (DEST) mit B 
beantwortet. Man sollte aber 
darauf achten, daß die Source- 
Diskette schreibgeschützt ist. 
Nach Drücken der Enter-Ta- 
.ue wird man überrascht 
sein, daß sich das Programm 
mit dem Hinweis meldet 
'DRIVE B READ ERROR' 
und dem Zusatz ’RETRY, IG- 
NORE, CANCEL'. Aber kei¬ 
ne Panik, durch Drücken der 
Taste C für Cancel setzt der 
Formatiervorgang ein. Es 
werden aber lediglich 40 
Tracks formatiert. Dieser 
ganzen Angelegenheit muß 
ich aber noch beifügen, daß 
sich im Floppycontroller das 
Original-ROM befinden 
muß, also kein XDOS, da 
sonst der ganze Versuch zum 
Scheitern verurteilt i.st. 

Bernward Scholtzen 
Konz 
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Aktuell—I 


Spooler für MS-Windows 


Wer mit MS-Windows arbeitet 
und viel mit dem Drucken von 
Grafiken. Texten oder ähnli¬ 
chem beschäftigt ist, wird sich 
sicherlich schon so manches 
mal einen größeren Druckerpuf¬ 
fer gewünscht haben. Mit Print 
Cache steht Ihnen nun ein lei¬ 
stungsstarkes Programm zur 
Verfügung, welches neben dem 
eigentlichen Spooler-Dasein 
noch so manch anderes für Sie 
erledigen kann. Dazu gehört 
zum Beispiel die Möglichkeit, 
auf einem HP-Laserjet oder 
kompatiblem Laserdrucker mit 
nur 512 kByte Arbeitsspeicher 
Grafikseiten in höchster Auflö¬ 
sung auszugeben. Somit entiallt 
hier eine recht teure Aufrüstung 
des Arbeitsspeichers. 

Flexibel ist dieses Programm al¬ 


lemal, lallt es sich doch so in¬ 
stallieren, daß cs den Puffer ent¬ 
weder auf der Festplatte, im Ex- 
tended oder Expanded Memory 
anlegt. Auf der DOS-Ebene läßt 
sich über eine Hotkey-Funktion 
'normalerweise' über ’ALT4-T’ 
das Statusfenster von Print Cache 
einblcndcn. In diesem Fenster 
wird zum Beispiel die prozen¬ 
tuale Ausnutzung des Puffers 
angczcigt. Ebenso läßt sich von 
hier aus auch der Inhalt des Puf¬ 
fers löschen sowie die Grafik- 
optimicrung für den HP-Laser- 
jet ein- beziehungsweise aus¬ 
schalten. 

Preis; 390,- DM 
Info; BfH 

Kottbusser Damm 79 
1000 Berlin 61 


Stony BookModula2 


Die Firma A-t-L AG kündigt den 
Compiler Stony Book Modula-2 
an. Nach Aussagen der Firma 
A-f L ist dies der höchstoptimie¬ 
rende Compiler der Welt. Es 
enthält Compiler und Bibliothe¬ 
ken für MS-DOS, Windows, 
OS/2 und Presentation Mana¬ 
ger. Somit ist eine direkte Über¬ 
nahme von MS-DOS-Program- 
men auf OS/2 möglich. Dieser 
Compiler kommt in zwei Ver¬ 
sionen auf den Markt. 
QuickMod ist ein preiswertes 
Entwicklungssystem für Ein- 
sleiger. welches die Stony- 
Book-Originalumgebung mit 
Bibliotheksmanager, Editor, 
sehr schnellem Compiler. De¬ 
bugger, Bibliotheken sowie eine 
ausführliche Dokumentation 


und viele Beispiele enthält. 

Der Optimizing Compiler ent¬ 
hält den QuickMod und zusätz¬ 
lich einen weiteren Compiler, 
mit dem die kürzesten und 
schnellsten Programme auf dem 
PC erzeugt werden können. 
Ebenfalls enthält das Paket die 
vollständige Schnittstelle zu Mi¬ 
crosoft Windows und eine Zahl 
von zusätzlichen Werkzeugen 
zur professionellen Software- 
Entwicklung wie Watch- und 
Analyse-Programme. 

Während der QuickMod für 
laind 340,— DM zu haben ist. 
wird der Optimizing Compiler 
rund 1000,- DM kosten. 

Info: A-t-L Ag 
Däderiz 61 
2540 Grenchen 


Topdat für PCW 


Das Programm Topdat .steht nun 
in einer neuen Version unter 
dem Namen Topdat plus zur 
Verfügung. Hinzugekommen ist 
im Vergleich zu dem normalen 
Topdat-Programm ein leistungs¬ 
starkes Serienbriefmodul. 

Zur Erinnening; Topdat ist eine 
komfortable Adreß-, Vereins¬ 
und Kundenverwaltung, die un¬ 
ter CP/M-Plus auf dem PCW 
8256/9512 sowie auf dem CPC 
6128 lauffahig ist. Eines der we¬ 


sentlichsten Leistungsmerkmale 
ist. daß das Programm aus einer 
Liste von 1000 Namen innerhalb 
von maximal fünf Sekunden 
eine Adresse herausfmden kann. 
Ausgclicfcrl wird das Programm 
mit einem 20seitigem Hand¬ 
buch, in dem jede Funktion von 
Topdat genau beschrieben wird. 

Preis: 99,- DM 
Info: ACW-Soft, 

Brette Straße 16, 

5300 Bonn 1 
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Viren ade! 


Der DMV-Verlag bietet ab sofort 
einen Viren-Scanncr für den PC 
an. Bei VirusFinder handelt es 
sich um ein Komplettpaket, das 
mit einer Virenlistc, welche 80 
Vircn-Scancodes umfaßt, ausge- 
iiefert wird. Die einfach zu be¬ 
dienende Scanneroberttäche ist 
anwenderfreundlich aufgebaut, 
und so kann auch der Einsteiger 
seine Daienbcständc leicht auf 
Viren überprüfen. Vielfältige 
Optionen erlauben es, entweder 
einzelne Dateien oder Verzeich¬ 


nisse, aber auch ganze Datenträ¬ 
ger zu überprüfen. Wer sicher¬ 
gehen will, kann mit VirusFin¬ 
der außerdem ein speicherresi¬ 
dentes Programm erstellen, 
welches jedes aufgerufenc Pro¬ 
gramm vor dem Start auf einen 
eventuellen Virenbefall über¬ 
prüft. 

Der Preis für VirusFinder liegt 
bei 149.- DM. 

Infos: DMV 
Postfach 250 
3440 Eschwege 


Flash In Version 7. 


Für 350,- DM bietet die ISP 
Software Handel.sgesell.schaft 
jetzt das Cache-Programm 
Flash an. Zu den Neuerungen 
gehört unter anderem die Aner¬ 
kennung von DOS 4.0 und Plat¬ 
tenbereichen von über 32 
MByte. 

Sind Sie im Besitz von Extended 
oder Expanded Memory, so be¬ 


nötigt das Programm nur 13 
kByte des DOS-Speichers. Je 
nachdem, wieviel Extended 
oder Expanded Memory noch 
frei ist, nutzt Flash diesen Spei¬ 
cher aus. 

Info; ISP Software Handelsge¬ 
sellschaft mbH 
Reinhold-Frank-Str. 1 
7500 Karlsruhe 1 


Formular Manager plus 


Der bereits vorgestclltc Formu¬ 
lar Manager zum Erstellen von 
Formularen wird nun in einer 
überarbeiteten Version 5.0 ange- 
boten. Wichtigste Neuerungen 
sind Möglichkeiten zum Daten¬ 
transfer nach dBase sowie eine 
Unterstützung von Laser-, 
Tintenstrahl- und Thermotrans¬ 


ferdruckern. Der Preis für die¬ 
ses Produkt liegt bei 490,- 
DM. Ein Update für alle regi¬ 
strierten Tnsiallationcn wird für 
139.— DM angeboten. 

Info: Jansen Expert Systems 
Sommerstraße 17 
8000 München 90 
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Cufiliiiii Aiiti'hcas lind üpidermans Coiiipiiicrdc- 
Imi vermag flicht zu überzeugen, du sind die Co¬ 
mics spiinnender 


Dr. Doora’s Revengc 

Captain America und der Amazing 
Spiderman, zwei aus Cumic-Heften 
sattsam bekannte Figuren, tummeln 
sich nun auch auf dem CPC; und 
das sogar als Team. Der Kampf der 
beiden Supermänner gegen Erzfeind 
Batruc, dessen üblen Kumpane um 
den noch übleren Dr. Düom, der die 
Herrschaft über die Erde an sich 
reißen will (wie originell!), könnte 
für eine Menge Action auf dem 
Bildschirm sorgen. 


Die Hintergrundstory wird in einem 
beiliegenden Comic recht nett erzählt: 
Captain America und Spiderman. die 
bis dahin immer getrennt operiert hat¬ 
ten. helfen sich gegenseitig bei einer 
Prügelei mit Waffenschiebern. Als 
Cap gleich darauf in sein geheimes 
Hauptquartier gerufen wird, nimmt er 
Spiderman als Verstärkung mit. In der 
Tat. der Präsident persönlich gibt den 
beiden ihre Order. 

Ein gewisser Dr. Doom hat einen su¬ 
pergeheimen Marschflugkörper ge¬ 
klaut und droht, New York damit in 
Schutt und Asche zu legen, falls der 
Präsident nicht willens ist. die USA zu 
einer Kolonie von Dooms osteuropäi¬ 
schem Ministaat Latveria zu machen. 
Da so etwas natürlich weder in die Tüte 
noch in Frage kommt, werden die bei¬ 
den Rächer der Verfolgten abkomman¬ 
diert, sowohl die Bombe als auch Dr. 
Doom unschädlich zu machen. Der 
saubere Doktor rechnet natürlich mit 
derartigem Widerstand und hat sich 
vorsorglich mit einer Garde von Co¬ 
mic-Fieslingen umgeben, von denen 
jeder die Schlagkraft einer ganzen Ar¬ 
mee besitzt: Batroc. Electro. Rhino 
und andere mehr. 

Nach einer etwas aufwendigen Sicher¬ 
heitsabfrage und der Einstellung der 
gewünschten Sprache kann die Action 
endlich losgehen. Die.se besteht haupt¬ 
sächlich darin, eine Comicseite (im- 

tx'scn Sie hine wriier auf Seite 69 
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merhin in Deutsch) auf dem Bildschirm 
zu lesen. Dann darf man als Captain 
America erst einen Roboter und dann, 
nach längerer Ladezeit, einen von 
Dooms Schlägern niedermachen. An¬ 
schließend wird wieder nachgcladen, 
damit Spiderman an einer anderen Stel¬ 
le des Schlosses dasselbe tun darf. 
Nach jedem einzelnen Kampf wird 
wieder eine Comicseite geladen, die 
dem Spieler wohl die Zeit verkürzen 
soll, bis nach noch längerem Laden der 
nächste Gegner auf dem Schirm er¬ 
scheint. mit dem das spannungslose 
Gemetzel weitergehen kann. 

Den Figuren stehen mehrere karatc- 
ähnlichc Schlag- und Sprungbewegun¬ 
gen zur Verfügung, mit denen die sich 
ziemlich hirnlos bewegenden Gegner 
leicht fertigzumachen sind. Spiderman 
verfügt zusätzlich über eine begrenzte 
Anzahl von Wurfnetzen. Captain Ame¬ 
rica ist mit einem Schild ausgerüstet, 
den er in bester Frisbee-Manier durch 
die Luft pfeifen lassen kann. 

Schepper, schepper, klirr... 

.. .beschreibt ziemlich exakt die gesam¬ 
te Geräuschkulisse des Programms, die 
sich zum Glück nur selten bemerkbar 
macht und die man mit einem schnellen 
Griff zum Lautstärkeregler tunlichst 
völlig zum Schweigen bringen sollte. 
Auf Eingangsmusik und ähnlichen Lu¬ 
xus muß ohnehin verzichtet werden, 
wofür man in Anbetracht des offen¬ 
sichtlich recht geringen Interesses der 
Programmierer an die.sem Werk ei¬ 
gentlich dankbar .sein müßte. 

Die Grafik dagegen ist recht ordent¬ 
lich. Da sich jede Prügelei in einem 
einzigen Screen abspielt, gibt es wenig¬ 
stens keine Probleme mit dem Scrol¬ 
ling! 

Schlappe Helden verwandeln auch kein 
noch so hübsches Comic-Heft in Su- 
permänncr, und eine gute Idee alleine 
macht noch kein gutes Produkt. Dieses 
lieblos zusammengeschusterte Pro¬ 
gramm ist leider ein Paradebeispiel da¬ 
für, wie mit wenig Aufwand eine 
schnelle Mark gemacht werden soll. 

(Antje Hink/jf) 


Bedienung^- ^ 
frcundliclikeit J) 
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Dr. Dooms Revenge 

Hersteller: Grand Slam 

Steuerung; Tastatur/Joystick 

Preis; 49.95 DM 




Die Rasanz von Space Hairier U setzt gare Reak¬ 
tionen heim Spieler voraus 

Space Harrier II 

Ein superschnelles Düsenskateboard 
unter den Füßen, ein Megaia.ser un¬ 
ter dem Arm, so ausgerüstet macht 
sich der Held der Zukunft auf, um 
das Fantasyland von dem bösen, bö¬ 
sen Dark Harrier zu befreien. Die 
Story ist einfach, der Spielspaß 
lang. 

Zwölf Ebenen, die jeweils auf den 
Spieler zuscrollcn, gilt es, von den 
Helfern des Oberbösen zu säubern. Be¬ 
sagte Kreaturen machen mit ihren 
schnellen Flugzeugen die Gegend unsi¬ 
cher, sind aber mit einem gutgezielten 
Schuß ziemlich einfach zu erledigen, 
solange sie sich noch auf dem Boden in 
Startposition befinden. Sind sie aber 
erst einmal in der Luft, wird die Sache 
schon etwas schwieriger, da die Jungs 
natürlich etwas dagegen haben, sich 
einfach abschießen zu lassen. Deshalb 
benutzen sie zur Tarnung alic.s, was in 
den einzelnen Levels in reichlicher 
Zahl herumsteht, wie Bäume, Säulen 
und ähnliches mehr. Da die Action 
ziemlich schnell abläuft, hat man in den 
meisten Fällen kaum mehr Zeit für 
Ausweichmanöver und verliert eines 
der fünf verfügbaren Leben. Noch lä¬ 
stiger als die Flugzeuge jedoch sind die 
von ihnen abgesetzten Steinringe, die 
so groß sind, daß man ihnen nur mit 
sehr viel Geschick ausweichen kann, 
und die deshalb häufig für ein vorzeiti¬ 
ges und ziemlich unrühmliches Ende 
unseres Helden sorgen. 

Und ich düse, düse, düse«,. 

Am Ende jedes Levels wartet ein Me¬ 
gagegner. der nur durch Dauerfeuer 
auf die diversen Köpfe ausgeschaltet 
werden kann. Sodann geht es auf ins 
nächste Level, falls man nicht eine Bo¬ 
nusrunde erhält. In diesem Falle sollte 
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CPC-Anwendungen 

Die bewährten und praxiserprobten CPC-Anwendungsprogramme aus dem 
DMV-Verlag bringen Ihre CPC-Hardware richtig in Schwung: Sie erzielen 
hervorragende Ergebnisse in kürzester Zeit 


ConText CPC 

Professionelle Textverarbeitung 

für alle CPC 

Lassen Sie Ihren CPC nicht verstauben! Mil ConText 
CPC können Sie ein Anwendungsprogramm erwerben, 
das für Textverarbeitung eine überzeugende Leistung 
bei einfacher Bedienung bietet. Die ausführliche deut¬ 
sche Anleitung macht auch Computerlaien nach kürze¬ 
ster Zeit eine Textverarbeitung per Computer möglich! 


Mit ConText CPC macht das Schreiben richtig Spaß; 

• Einfügen, Fließtext, Blockformatierung und Kopieren auf 
Tastendruck • 25 KByte Textspeicher, ausreichend für min¬ 
destens fünf D1N-A4-Seiten • Mehrspaltige Texterstellung 
und Kopieren für besondere Aufgaben • Textblöcke von 
Diskette oder Kassette jederzeit im Text zu plazieren 

• Drucken im Hintergrund, während Sie weiter an Ihren 
Texten arbeiten ♦ Echtbild-Darstellung der Schriftarten 
»Vergrößert« und »Unterstrichen« • In das Programm Con¬ 
Text CPC integrierter Taschenrechner und Kalender 

• Variable Druckeranpassung mit Einstellmöglichkeit in 
Tabellenform 

ConText CPC ^ 

Hervorragend in Preis und Leistung DM 59,- 


Turbo-DATA-CPC 

Voltdampf in der Dateiverwaltung 


Brauchen Sie ein neues Adreßbuch oder Telefonver¬ 
zeichnis? Müssen Sie Ihre Sammlungen von Briefmar¬ 
ken, Schallplatten, Dias oder anderen Schätzen sortie¬ 
ren? Alles kein Problem mit Turbo-DATA-CPC, der uni¬ 
versellen Dateiverwaltung für alle CPC mit Disketten¬ 
laufwerk, mit der Sie Überblick und Ordnung in Ihre 
Daten bringen. 

Datenverwaltung komplett mit Turbo-DATA-CPC; 

• Universell durch veränderbare Ein- und Ausgabemasken 

• Blitzschnelle Suchfunktionen durch Indexfelder 

• Dateikapazität bis maximal 80 verschiedene Felder 

• Bis zu 19 Felder gleichzeitig auf dem Bildschirm sichtbar 

• Besonders schnelle und umfangreiche Sortierfunktion 

• Eigene Formatierroutine mit extrem hoher Kapazität 

• Zweiteilung^des Bildschirms in Status- und Arbeitsfeld 

• Komplette Druckroutinen, auch für Etikettendruck 

Turbo-DATA-CPC 

Immer die richtige Wahl dm 69,- 


CopyShop 

Das universelle Hardcopy-Programm 

für alle CPC 

Wollen Sie Ihre traumhaft schöne Fraktalgrafik im 
Freundeskreis zeigen, oder brauchen Sie zu Ihrem 
selbstgeschriebenen Programm einen Ausdruck? 

Mit CopyShop bringen Sie alle Biidschirmansichten zu 
Papier, auch mit den exotischsten Druckern. Ein Show- 
Modus zeigt Ihnen die Hardcopy vor dem endgültigen 
Ausdruck auf dem Bildschirm! 


Mit CopyShop Hardcopies immer und überall: 

• Vier Formate in allen drei CPC-Modi mit automatischer 
Erkennung • In das Programm integrierter Grafikeditor mit 
Füllfunktion • 32 Farbraster wählbar über komfortable Pull- 
down-Menüs • Beliebige Ausschnittsvergrößerungen mit 
Invertierungsfunktion • Drucker-Anpaßmenü für alle Ep¬ 
son-und Seikosha-Druckero Anpassung auch an gedrehte 
Bitbild-Bytes, z.B. an NEC P2 • Freezer auch für Hard¬ 
copies aus laufenden Basic-Programmen • selbstrelozie- 
rende Hardcopy-Routinen für eigene Programme 

CopyShop 

Das ultimative Hardcopy-Programm dm 49,- * 


CPC Special Offer 2 

Vier Programme im Paket-Sonderpreis 

Ob Bildschirmgrafiken, Sprile-Animalion, Disketten¬ 
monitor oder eine Diskettenverwaltung - im Special 
Offer 2 für alle CPC ist für jeden etwas dabei: 

DISKSORT-STAR 

Leisiungsstartte Diskottenverwaltung mit hohom Sedienungshomfort und integnertom 
Diskettennianagor Verwatlung. Archivierung, Katalogisierung Ihrer Disketten und Aus¬ 
druck der Daten • intt Disksort Star kein Problem. 


DESIGNER-STAR 

Gratikprogramm zum komfortablen Erstellen von Bildschirmgrafiken. Zur Bedienung ist 
ein Joystick oder eine Maus nicht notwendig. Aul Tastendruck werden Sie mit Hitsmenüs 
durch das Programm geführt 


CREATOR-STAR 

Erstellen Sie egerte Trickfilme aut Ihrem CPC - mit einem Kulissen- und Sprite-Designer 
sowie beliebigere Laufschritten In einer eigenen Programmiersprache mit Editor und 
Compiler können Spntos verbunden und Kulissen übereinandergelegl werden 


STAR-MON 

ProtessioneUe CPC-Programmlerung mit Assembler, Disassembler urxJ Monitor Das 
System bestzt einen eigenen Diskettenmonitor und Editor, eine Traco Funktion, kann 
Breakpoints setzen und Bankswitchsng vornehmen, 

CPC Special Offer 2 

Für CPC-Profis dm 59,- * 

















CPC-Basic 


Mit dem FAst-BAsic-COMpiler aus dem DMV-Ver- 
lag nutzen Sie Ihr spezielles Schneider-Basic optimal aus! 


FAst BAsic COMpiler 

Der Turbo-Antrieb für Ihre 
Basic-Programme! 


Haben Sie sich schon immer gewünscht, daß Ihre Ba¬ 
sic-Programme auf dem CPC schneller laufen? Mit dem 
FABACOM-Basic-Compiler wird dies zur Wirklichkeit: 
Compilierte Basic-Programme brauchen weniger Platz 
und laufen schneller ab. 


Schneite Programme durch FABACOM; 

• Voller Sprachumfang von CPC-Basic 1.1 (664/6128) 

• Die compilierten Programme sind auf jedem 
CPC lauffähig 

• Separate Compilierung von Programm- 
teilen für Nachtadeprogramme 

• Fast alle Befehle von CPC-Basic 1.1 auch 
für CPC 464 

• Unterstützung von Integer- und Fließkom¬ 
ma-Arithmetik 


FABACOM - 

schnell durch Compilierung 


DM 49,- 


FA^BA 
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ORGATEC 


INTIRNAflONIlI 
BÜROMCSSE KÖLN 
2S.-30.0KT.I99D 

HAU« 2.1 

GANG (, STAND 42 



BASIC-Compiler für CPC 464/664/6128 

Der Turbo-Antrieb für Ihre BASIC-Programme! 


ORGATEC 


INTERNRTIONtlE 
RÜROMESSE KÖLN 
35.-30. OKI.I990 
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Das Software-Experiment 

Spielend den CPC beherrschen lernen 


Nehmen Sie teil am Abenteuer "Computer"! In zehn 
lebendig und leicht verständlich geschilderten Reisen 
in die Welt der Computergrafik, Simulation und künst* 
liehen Intelligenz erarbeitet der Autor mit Ihnen zusam¬ 
men insgesamt 17 interessante Programme, die Sie auf 
Diskette erhalten. 


Das umfangreiche, ISOseitige Handbuch vermittelt 
Ihnen auf anschauliche und unterhaltsame Weise, wie 
aus Algorithmen Datenstrukturen und letztendlich 
Software entstehen: von der Idee zum Programm - der 
ideale Kursus zum Einstieg in das Computerwissen, für 
Hobby und Schuluntericht. Sehen Sie seibst, zu wel¬ 
chen phantastischen Grafiken und verblüffenden Intel¬ 
ligenzleistungen der CPC bei raffinierter Programmie¬ 
rung fähig ist! 



Der Computer 
als Stratege 

Ein raffiniertes 
System von 
Spielzugbewer 
tungen macht 
den CPC zu ei¬ 
nem fast un¬ 
schlagbaren 
Gegner im Go- 
bang-Spiel, der 
Ihnen anfangs 
saftige Niederlagen bescheren wird. Keine Angst - das 
Programm ist zu schlagen - aber wie, das müssen Sie 
selbst herausfinden. 


Der Computer lernt 

Erleben Sie ein Paradebeispiel für "Künstliche Intelligenz": 
Das Programm "Minischach" ist lernfähig und wird mit jeder 
Partie ein bißchen besser. 


Wordmaster 

Sie raten ein Wort, das sich der Computer ausgedacht hat. 
Dann rät der Rechner ein Wort, das Sie sich ausgedacht 
haben. Wer braucht weniger Versuche? Sie werden sich 
wundern... 

Komplexe Grafik 

Sie lernen die mathematischen Grundlagen von Fraktalgrafi- 
ken und erarbeiten einen kompletten Fraktalgenerator zur 
Erzeugung von "Apfelmänn- 
chen"-Bi!dern. 

Das Spiel des Lebens 

Nach natürlichen Prinzipien des Wachstums erzeugt der 
Computer phantastische, kristallförmige Farbstrukturen. 
Ändern Sie die Regeln und Voraussetzungen, und sehen 
Sie, was für neue, noch nie dagewesene Formen sich 
ergeben. 


Das Ökologie- 
Experiment 
Der Computer 
zeigt Ihnen in 
animierter Farb¬ 
grafik einen si¬ 
mulierten Le¬ 
bensraum mit 
Weideland, 
Schafen und 
Wölfen. Erfor¬ 
schen Sie die 
ökologischen Gesetzmäßigkeiten, und schaffen Sie ein 
stabiles, natürliches Gleichgewicht. 

Wordketten 

Mit einem raffinierten Algorithmus löst der CPC Wortketten- 
Rätsel. Oder er erfindet neue Rätsel - ganz wie Sie wollen. 


- >»- . >»: ,,>»: > m -K 
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Mit roher 
Rechengewalt 
Mit dem "Brute- 
Force'-Algorith- 
mus darf der 
CPC so richtig 
loslegen und 
spielt mit roher 
Rechengewalt in 
dem afrikani¬ 
schen Strategie¬ 
spie! "Kalaha" al¬ 
le Gegner an die 
Wand - oder kön¬ 
nen Sie ihn trotz¬ 
dem schlagen? 




Pascal läßt grü¬ 
ßen 

Ein erstaunli¬ 
ches Programm 
enthüllt verbor¬ 
gene Strukturen 
im sogenannten 
"Pascalschen 
Dreieck". Die 
grafische Dar¬ 
stellung ergibt 
traumhaft schö¬ 
ne und farbige 
Musterbilder. 


Entwicklungshilfe 

Eine gut ausgestaltete Simulation versetzt Sie in die Lage 
eines Entwicklungshelfers, der eine Hungersnot abzuwen¬ 
den versucht. Aber Ihre Mittel sind begrenzt... 


Das Software-Experiment 

Siebzehn verschiedene, iauffähige Programme 
180 Seiten Anleitung und Erklärung 
Diskette nur dm 39,-* 




































CPC-Spiele 

Zu unglaublichen Preisen! 


Faszination in 3D 


Zwei Super-Aktion-Spiele inklusive 
3D-Brilie 



Game Box 3 


Know CPC 

Interessantes Frage- und Antwortspiel für die 
ganze Familie DM ZS,-"* 


3D-LightCycle 

Das bekannte und beliebte 
TRON-Spiel für zwei Personen 
jetzt wie im Film! Erleben Sie die¬ 
ses spannende und abwechs¬ 
lungsreiche Aktionsspiel jetzt ln 
einer neuen Dimension. Verblüf¬ 
fende und noch nie dagewesene 
3D-Eftekte zusammen mit einem 
professionellen Sound lassen 
Sie in eine völlig neue CPC-Welt 
versinken. Diesen Super-Hit 
man live gesehen haben. 


Das beste Labyrinthspiel jetzt in 
Super-3D-Qualität. Auf der Su¬ 
che nach Hinweisen zum Passwort, das den 
mächtigen Zentralcomputer lahmlegen kann, lau¬ 
ern tausend Gefahren auf Sie. Räumlich perfekte 
3D-Darstejlung, extrem schneller Grafikaufbau 
und viele Überraschungen garantieren eine völlig 
neue Art von Spielvergnügen. 

Für ale CPC 464,664,6i 28 mit Farbmomior. Das Spiel 3D-Lignt Cyde 
kann in 2D-Oarstellung auch auf Grünmonrtor gespie): werden. 


DM 39,-^ 


StarTest 

Aktion-Adventure für alle CPCs DM 19,-* 


CYRUS II Schach 

Das bewährte Schachprogramm mit 3D-Display. einstell¬ 
barer Spielstärke und deutscher Bedienungsanleitung 

Kassette dm 10,-* 


Fantastic Four 

Vier Superprogramme zum Minipreis 

Cockaigne - Weltraum-Aktion 
Terranaut I - Science-Fiction 
Fruits - Geschicklichkeit 

Terranaut II - Textadventure dm 29,-* 


Special Öfters III 

Neun interessante Spiele für alle CPCs 
2 Disketten, dm 39,-* 


Für jeden das Richtige - vier ausgesuchte 
Top-Spiele für CPC 


Alphajet-Wettraum- 
Aktionsspiel mit außer¬ 
gewöhnlicher Grafik und 
tollen Effekten 

Telefomania - 

Interessantes Sdence- 
Fiction-Spiel mit vc^lig 
neuer ^ielidee 

Kampf den Insekten - 

Erlebnisreiches 
Geschicklichkeitsspiei 
mit Überraschungen 


Funbouncer - schnelles 
und farbenfrohes 
Aktions-Spiel mit 
eigenem Bild- 
Konstruktions-Editor 


DM 29,-* 
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l 

f 

] 

« 

i 

t 







I 


I 


CPC-Sammelpack 

Solange unser Vorrat reicht, können Sie mit Einzelhef¬ 
ten und günstigen Paket-Angeboten ihre Sammlung 
der Amslrad internationai vervoliständigen - 
mit Wissen, das heute noch genauso wertvoll ist wie 
damals. 


Einzelhefte 1989 



pro Ausgabe dm 6,50 * 

Sammelpack 1988 

12 Ausgaben PC Amstrad International 
1/88 bis 11/88 und 1/89 dm 39,-* 

























zahlt, ob Sie tauschen, verkaufen oder er¬ 
werben wollen! 

Und so wird's gemacht; 

Kreuzen Sie bitte an, in welcher Rubrik Ihre An- 
; zeige erscheinen soll und ob Sie privat oder ge¬ 
werblich ist. Dann schreiben Sie Ihren Text so 
in das vorgezeichnete Feld, daß jeder Buchsta¬ 
be, jedes Satzzeichen oder jeder Wortzwischen¬ 
raum ein markiertes Kästchen ausfüllt. Jetzt 
brauchen Sie nur noch die Zeilen zu zählen, den 
Preis zu berechnen, einen Verrechnungsscheck 
auszufüllen, und fertig ist Ihre Gelegenheits¬ 
anzeige. 

Bitte beachten Sie! 

Aus verwaltungstechnischen Gründen kann der 
Abdruck Ihrer Kleinanzeige nur gegen Vorkasse 
erfolgen. 


Klelnanzeiflen-Markt , 

Private Anzeigen: Nur DM 5, - je angefangene Zeile. 

Geschäftliche Empfehlungen: DM 8,- je angefangene Zeile, zzgl. gesetzlicher Mehrwertsteuer. 

Bitte veröffentlichen Sie meine Anzeige in der nächsterreichbaren PC Amstrad für 

D private Zwecke □ gewerbliche Zwecke (gewerbliche Anzeigen werden mit G gekennzeichnet) 

Das ist der Text: (Bitte deutlich in Druckbuchstäben schreibeni) 




I_1 



Z'. Die Anzeige soll als Chiffre-Arizeigeerschelnen (nurbei Privat-Anzeige!. ChiffreGebübr 10,- DMinkt MwSt. zzgl. zum Anzeigenpreis 
In dieser Rubrik: 

□ Biete an □ Suche □ Tausch □ Stellenmarkt/freie Mitarbeit 

□ Hardware □ Hardware □ Qeschäfteverblndungen 

''' Software □ Software □ Verschiedenes 



amst^äd 


I N T 



NATIONAL 



Über 


CPC und PCW Joyce 

sammeln Sie mit 

• Einzelheften 

• Sonderheften 

• DATABOX 


1 Einzelhefte und DATABOX 

1 Sonderheft und DATABOX 

Einzelheit 
Ausgabe 
6.- DMIStck 

CPC 
KasseKe 
14- OkkStck. 

CPC 

S'-Oiskette 
24.- OM/Stck. 

Joyce 
S'-Diskette 
24,- OU/Sick. 

PC 1S12 

5 IM'-Disketie 
24.- OM/Slck. 

CPC-Sonderheft 
DM 14,- 

DATABOX 

3-Zoll-Oisketle 

Kombipack 

Sonderheft * DATABOX 
3-Zolt-Olskette OM 29. - 






□ 309 Nr. 3/86 

O 3f9DM29.- 

C 3044 

U 



U 

□ 

□ 

□ 311 Nr. 5/87 

D 334 OM 38, - 

C 3045 

U 

- 

□ 

n 

D 

U 31S Nr. 6/88 

C 340 DM 38, - 

U 3C546 

L 

- 

□ 

a 

□ 

□ 313 Nf. 7/88 

□ 3/35 DM 38,- 

U 3047 







U 

2-89 

_ 

ü 

□ 

□ 

1 3136 Nr. 8/89 

D 3142 OM 38,- 

□ 3048 

□ 

3-89 

- 

u 

□ 

□ 




□ 

4’89 


L 

□ 

D 




J 

s’es 

- 

C 

□ 

U 




□ 

6'89 

□ 

12 

□ 

C 




□ 

7'89 

□ 

□ 

□ 

C 

J Best.-Nr. 3043 

CPC-Sonderheft-Kraftpakel 

□ 

8'89 

C 

U 

□ 

ü 

D 

989 

c 

□ 

3 

□ 


C 

10’89 

□ 

□ 

□ 

□ 



DM 35,- 

C 

11'89 

□ 

u 

□ 

ü 



o 

12'8d 

□ 

□ 

□ 

□ 




□ 

IW 

□ 

□ 

□ 

□ 




□ 

2’90 

□ 

L 

C 

u 

D Best.-Nr 3042 SammelpBck 1988 

12 Ausgaben PC Amstrad Internationa 

□ 

3-90 

□ 

C 

c 

u 

□ 

4’90 

□ 

L- 

□ 

11 

n 

5’90 

□ 

□ 

□ 

_ 

1/00 DIS 1 1/00 

+ i/oy -- 

DM 39, • 

n 

6/7‘90 

□ 

□ 

□ 

_ 



Q 

a/9'90 

□ 

□ 

□ 

- 





+ Porto/Verpackung 

(iniandA- DM,Ausland8.- DM) DM Gesamtbetrag: . Dl 



für 


CPC und PCW Joyce 

erwerben Sie im 

Bestellservice 

preisgünstig 

und 

schnell 


CPC-'Bestellservice 


I Jcifce-Bestellservice 1 


3‘-Diskette 

Kassette 

m 

□ 

207 

- 

ConText CPC, Textverarbeitung 59, - 

□ 

202 

- 

CopyShop, Hardcopy-Programm 49, - 

□ 

214 

- 

Turbo Data CPC 

69,- 

□ 

205 

- 

Special Öfter 2 

59,- 

□ 

213 

- 

Software-Experiment 

39,- 

□ 

209 

- 

FaBaCom, Basic-Compiler 

49,- 

□ 

104 

- 

Startest 

19,- 


- 

□ 130 

Cyrus Il-Schach 

10.- 

□ 

1011 

- 

Fantastic Four, Spielesammiung 





29,- 

□ 

107 

- 

Special Öfter 3, Spielesammlung 





39,- 

□ 

1369 

- 

Faszination 3D 

39,- 

□ 

1012 

- 

Game-Box III 

29.- 

□ 

106 

- 

Know CPC 

29,- 

□ 

211 

- 

Fraktal Generator 3D CPC 

49,- 


+ Porto/Verpackung 


3"-Diskette 


Joyce-Software 


DM 


□ 

O 

□ 

□ 

□ 

a 

□ 


215 

216 
217 

219 

220 
221 
222 


Volume 1, Charakter-Designer 

49,- 

Volume 2, Dateiverwaltung 

49,- 

Volume 3, GSXpfot 

59,- 

Volume 4, Bild-Editor 

49,- 

Volume 5. Datenbank 

69,- 

Volume 6, Tabelienkalkulation 

59,- 

Volume 7, Grafische Benutzeroberfläche 

69,- 


□ 

D 

□ 


3050 

3051 

3052 


Joyce-Sonderheft-Pakete 
Sondeilteft 2 t- DATABOX, 2 Disketten 3’ 29, - 
Sonderheft 3 + DATABOX, 2 Disketten 3" 29, - 
Sonderheft 4 4 DATABOX, 2 Disketten 3" 29, - 


Joyce-Bücher 

□ 406 Joyce - mehr als ein Textsystem 

+ DATABOX, Diskette 3“ 49,- 

G 401 Praktische Textverarbeitung mit Joyce 

+ DATABOX, Diskette 3" 49, - 


(Inland 4,- DM. Ausland 6.- OM) 


DM Gesamtbetrag; 


DM 



































































































































amstrad 

! N T HT^ A T I 0 H A l 




Kleinanzeige 

Bei Angeboten: 

Ich bestätige, daß ich alle Rechte an 
den angebotenen Waren besitze. 


! 


Name 

Straße/Postfach 


J 

i 


_ PLZ/ORT 

^ Den Betrag bezahle ich mit dem neigefügten VettechnungsschacK. 


’Unlergclirm tb«: Mimlariihrlgon des sjesetrlKiheii VertrMB»#| 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


Bitte 

ausreichend 

frankieren 


ö AMSTRAD 


Bitte 

austeichenci 

^ [TC— ^ A T l 0 H A L 


frankieren 

\\_ 1 - 




I 


Einzel hefte 

Ja, ich mache von Ihrem Angebot Gebrauch und bestelle die umseilig 
ausgewählten Produkte. Bitte liatern Sie an folgende Anschrilt: 


U Name 

I 

I Straße/Postfach 

$ 


^ PLZ/ORT 

; Den Betrag bezahle ich mit dem beigefügten Verrechnungeschedt. 
n tch bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur innerhalb der BRD). 



■ UnterschfHi (bei Mintteriinngen nee geseizf'Ction Veriieiers) 


AMSTRA0 


I N T A T l 0 H A L 




jcPC-/PCW-Joyce-Beste!lservice 

iJa, Ich mache von Ihrem Angebot Gebrauch und b«ielle die umsef^ 
ausgewählten Produkte. Bitte liefern Sie an folgende AnschnfI: 


Name 

istraBe/Postfach 
\ PLZ/ORT 

jo Den Betrag bazahte ich mit dem belgelügten Veirechnungsscheck. 

!*] n Ich bitte imr Lietoning per Nachnahme zuzüglich der Nachnahmegobüht 
(nur innerhalb der BRD). 

•.tuin “ÜniBisctmti (bei MlndwiahrlgerTdes geseFzSchen Vonreters) 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


Bitte 

ausreichend 

frankieren 


1 ■ :? <aahcen nutz^ 

Wollen Sie etwas aus dem Com¬ 
puterbereich tauschen, verkaufen 
oder erwerben, dann schalten Sie 
doch eine Gelegenheitsanzeige in 
unserem Kleinanzeigen-Markt. 

Dabei können Sie bestimmt so 
manche Mark sparen und ein gu¬ 
tes Schnäppchen machen. Ihre 
Chancen nutzen Sie konsequent 
mit 

• Gelegenheitsanzeigen 

• Kleinanzeigen 

• Gewerblichen Angeboten 

Zur Erinnerung: 

Meine Kleinanzeige wurde aufgege¬ 
ben am 


:) 

PC-Amstrad-Leser sind immer 
top-informiert. Daher sollte Ihnen 
kein Heft oder Sonderheft in Ihrer 
Sammlung fehlen. Das Eintippen 
von Listings und Programmen er¬ 
sparen Sie sich durch unseren 
günstigen DATABOX-Service. Im¬ 
mer gut beraten sind Sie mit PC 
Amstrad 

• Sonderheften 

• DATABOXEN 

• Sammelpacks 

Zur Erinnerung: 

Meine Hefte, Sonderhefte und DATA¬ 
BOXEN wurden bestellt am 



o 



■^stellen ) 


Die Power-Software von PC Am¬ 
strad für CPC und PCW Joyce ist 
unter Kennern bereits ein Begriff, 
und unser Sortiment wird Monat 
für Monat gepflegt und erweitert. 
Und vergessen Sie nicht; Soft¬ 
ware von PC Amstrad ist auch ein 
Geschenk, das ankommt. Nutzen 
auch Sie die Vorteile von PC- 
Amstrad-Software 

• preisgünstig 

• bewährt 

• praxisgetestet 

Zur Erinnerung: 

Meine CPC- und PCW-Joyce-Soft- 
ware wurde bestellt am 








































































1 

I 



Zum Sammeln 
unentbehrlich 


1990 


1990 


Die 

DMV-Sammelordner 


Sonderhefte • Samnnelordner • Demonstrationen 


Ausgabe DATABOX 


DOS EXTRA 

DM 18,- 

2 Stk. 5 1/4“-Disk 

DM 35.- 

1 Stk. 3 1/2‘'-Disk 

DM 35,- 

L 356 Nr. 3 

□ 357 

□ 358 

□ 381 Nr. 4 

C 3811 

□ 3812 

a 382 Nr. 5 

C 3813 

□ 3814 

□ 383 Nr. 6 

□ 3815 

□ 3816 

□ 384 Nr. 7 

□ 3817 

□ 3818 

□ 385 Nr. 8 

□ 3819 

(I 3820 

□ 386 Nr. 9 

□ 3821 

□ 3822 

□ 3S7 Nr. 10 

□ 3823 

□ 3824 

□ 386 Nr. 11 

□ 3825 

□ 3826 

Pascal 

Sonderdruck 

n 346 

□ 347 

DMV-Computer- 
wissen Band 1 

□ 3512 

□ 3513 

DOS- 

5 1/4‘'-Dtskette 

3 1/2‘'-Diskette 

Taschenbücher 

DM 24,- 

DM 24,- 

BAND 1 

□ 60501 

□ 60502 

BAND 3 

D 60521 

□ 60522 

BAND 4 

□ 60531 

□ 60532 


Best.-Nr._^ 

□ 60500 DOS-Taschenbuch Band 1 29,80 

□ 60510 DOS-Taschenbuch Band 2 29,80 

□ 60520 DOS-Taschenbuch Band 3 29,80 

□ 60530 DOS-Taschenbuch Band 4 29,80 

□ 402 Die Basic2-Toolbox 49, - 

□ 403 Die Besic2-Tooll}ox, S1M” -Diskette ajm Buch 29, - 

□ 345 PASCAL Sonderdruck 25, - 

□ 3511 DUV-Computer-Wl^n, Band 1, Basic-Toolbox 18, - 


Sammelordner 


2 Stk. 15,60 


□ 530 DOS 

□ 534 toolbox 

□ 536 DOS TEST 


□ 531 PC International 

□ 535 PCpur 

n 537 AMIGA DOS 


Zwtscttensumme + Porio und Verpackung 
(Irland 4. - DM, Ausland 6. - OM)_ 


Demodisketten jeweils OM 5, - 


toolbot-PD>ServiKjeweilsDM 10,- 


□ 001 Fraktal 3D -i- MasKEOIt 

5 1/4* 

3M2- 


□ 003 ERGO 3.0 

a Z» 

- 

PO-UMulfrCmpiief.MSOOS 

□ 005 ConTexI PRO 


cm 

PD'Pi^lcgCenipller, MS-DOS 

a 007 3D-Dfaw 1.0 


zm 

SSQl-C^ienbsnkabliage 

□ 008 DMV-Show-Manager 

□ 009 Navigator 4.0 

nm 

• 

Oucl(-Sas»UbuigKoinpii9> 


Qesamtbetrag; 


DM 


PC- 

Software 

vom 

DMV 

Versandservice 

• leistungsstark 

• praxisbewährt 

• preisbewußt 


PC-Software 


5V4“ 

3 V2“ 

DM 

2292 

3 

2281 

□ 

ConText EASY, (MS-DOS) 

S9,- 

2*07 

_ 

2406 

0 

ConToxt PRO, (MS-DOS) 

199,- 

2*09 


2410 

LI 

Upgrade - ConText PRO 

129,- 

2*15 


2416 

U 

ConText-ADREVA, AdteSveiwaltung 

49,- 

2419 

(i 

2420 

U 

ConText-^lchenadltor 

99,- 

2421 

U 

2422 

U 

ConText-RechtschrelbhIlfe 

69,- 

2S50 

U 

2SS1 

□ 

OMV-Power-Pack 

349.- 

2515 

LI 

2616 

LJ 

H.A.I.-Tech, (MS-DOS) 

199.- 

2522 

□ 

2521 

l) 

ERGO 3.0, 00S-8enulzerober1läch9 

199,- 

229 

U 

2» 


Hyperkey, Version 4.0. (MS-DOS) 

99,- 

256 

U 

257 

_ 

VlrusDoktor, (MS-DOS) 

99,- 

2702 

n 

2700 


DMV-Show-Mansger 

199,- 

238 


239 

u 

MaskEdIt Plus mit einem Treiber 

99,- 

2613 


2614 

u 

MaskEdIt Mus, Paket mit zwei Treibern 

149,- 

2621 

- 

2622 

□ 

MaskEdIt Plus, Paket mit drei Treibern 

199,- 

Turbo 

Turbo C Top-Speed Turbo 

Quick 

Pascal 31415 

Ukrosolt C Modula-S Basic 

Basic 

Z!2632 

ü 2633 n 2634 L 2635 

C\2636 

227 

n 

233 

□ 

BCi DIsAsm/iee, (MS-DOS) 

199,- 

2402 

u 

2401 


TopSpeed Modula-2, Compier 

348,- 

2404 

u 

2403 

.. 

TopSpeed Modula-2. TechKIt 

248,- 

2406 

_ 

2405 


TopSpaed Modula-2, D^ugqer 

248,- 

2412 


2411 


Pakat Compiler * Debugger 

555.- 

2413 


2412 

□ 

TopSpeed Modula-2, OS/2 Version 
DOS-Tools 1, RSM-Uairaoer 

696.- 

6001 


6002 

II 

69,- 

6007 

1, 

6008 

U 

DOS-Tools 4. 3D-Dr8w, Version 1,0 

99,- 

6017 

u 

6018 

u 

3D-Draw Profeeeion^ 

199,- 

6021 

u 

6022 

u 

Upgrade von SD-Orsw auf Profeselonsl 

109,- 

$019 

u 

6020 

u 

Navigator 4,0 

69,- 

6009 

u 

6010 

u 

DOS-Toois 8, GW-OasoTortMZ-Oberläct» 

69,- 


+ Porto/Verpackung 

(Inland 4, - DM, Ausland 6. - DM) _ DM 


5V4- 

V2“ 

DM 

mi 

□ 

8012 

□ 

DOS-Toote 8, Gtv.ea9MoDboi-DOSfunktiQiwi 

69,- 

6013 

□ 

6014 

U 

DOS-To<^s 7, GW-Basio-Toolboi-tlereuleskJisllk 

69,- 

20500 C 

20501 

Ü 

PCpur Software 1, MultiPont Plus 

69,- 

2050? □ 

ÄtSßJ 


PCpur Software Is, Zusauionis WriiFoni Plus 

39,- 

20S04 □ 

20505 

■ 

PCpur Software II, ASCII-Tigat, ^^imnediKit 

69,- 

20506 J 

20507 


PCpur Software III, Fesiplatten-Optimierer 

69,- 

2804 

_ 

2805 

_ 

toolbox Spezial II. PASCOMP 

35.- 

2806 

■ 

2809 


toolbox Spezial IV, CALC 

36,- 

2811 

1., 

2812 

L 

toolbox Spezial V, STRUKTO 

38.- 

2815 

C 

2816 

1 . 

loolbox Spezial VII, dt Srbentrervxing 

35,- 

2819 

u 

2820 

n 

toolbox Spezial IX, HPOLPIotier 

35.- 

2823 

u 

2824 


toolbox Spezial XI, MAP. MARK & PElfASE 

35,- 

2827 

ü 

2826 

LJ 

tootbox Spezial XIII. TricKkisie Voll 

38.- 

2829 

n 

2830 

’j 

toolbox Spezial XIV, Tnckkiste Vol.2 

38,- 

2631 

□ 

2832 

j 

toolbox Spezial XV, Fitting « Lln.-Glei. 

35,- 

2833 

n 

2834 


toolbox Spezial XVt, nat.-sprachl. SchnAst. 

35,- 

2835 

_ 

2836 


toolbox Spezial XVil, EVSSpeictKi-SsftMie 

35,- 

2837 

_ 

2638 

c 

toolbox Spezial XVIII, Alkane Klassiliimir^ 

35,- 

2361 

1. 

2362 

□ 

MAUSALL Plue 

35,- 

246 

r 

247 

□ 

C-Funktlonssammlung 

99.- 

2952 

□ 



GEMIntertace PC, Turbo Pascal 4 * 5.0 

198,- 

2954 

u 



OEMInterTace PC, TopSpeed Modula Z 

198,- 

1371 

u 

1372 

□ 

PC-Splele-Sampler 

49,- 

W 

□ 

162 

u 

KNOW-PC, Unterhaltungssplel 

49,- 

1293 

n 

1294 

□ 

Ergänzungsfragen zu KNOW-PC 

29,- 

248 

ü 

249 


Fraktal-Generator 3D, MS-DOS 

69.- 

1374 

j 



DOS-Spleleklste: Populous PC 

69,95 


Gesamtbetrag; DM 



AMSTIW^ 


I N T L4ni A T I 0 N A L 


Kleinanzeige 

Eine Gelegenheitsanzeige in unserem 
Kleinanzeigen-Markt macht sich immer be¬ 
zahlt, ob Sie tauschen, verkaufen oder er¬ 
werben wollen! 

Und 80 wird's gemacht: 

Kreuzen Sie bitte an, in welcher Rubrik Ihre An¬ 
zeige erscheinen soll und ob Sie privat oder ge¬ 
werblich Ist. Dann schreiben Sie Ihren Text so 
in das vorgezeichnete Feld, daß jeder Buchsta¬ 
be, jedes Satzzeichen oder jeder Wortzwischen- 
taum ein rrrarkiertes Kästchen ausfüllt. Jetzt 
brauchen Sie nur noch die Zeilen zu zählen, den 
Preis zu berechnen, einen Verrechnungsscheck 
auezufüllen, und fertig ist Ihre Gelegenheits- 
anzeige. 

Bitte beachten Siel 

Aus verwaltungstechnischen Gründen kann der 
Abdruck Ihrer Kleinanzeige nur gegen Vorkasse 
erfolgen. 


_ Klelnanzelflen-Markt 1 

Private Anzeigen: Nur DM 5, - Je angefangene Zeile. 

Qeschäftifche Empfehlungen: DM 8, - je angefarrgen© Zeile, zzgt. gesetzlicher Mehrwertsteuer 
Bitte veröffentlichen Sie meine Anzeige ln cfer nächsterreichbaren PC Ametrad für 

n private Zwecke □ gewerbliche Zwecke (gewerbliche Anzeigen werden mit G gekennzeichnet) 

Das (St der Text: (Bitte deutlich in Druckbuchstaben schreiben!) 


1 1 1 1 




1 i [ 1 1 


1 1 1 1 1 1 




1 1 

M 1 1 1 1 





1 1 


1 1 1 1 


1 1 1 

1 1 

U 1 1 1 M 

1 


1 1 

1 1 1 1 1 1 Ml 



1 1 

1 1 1 1 M 1 1 



1 1 ; 1 


1 1 1 1 


1 



1 1 

1 1 M 1 


' 1 

1 i 


L 1 1 1 1 1 

1 1 1 



1 1 

1 1 1 1 1 1 

jj 


III I ! 


III! 


1 , 


1 1 

1 1 1 1 1 1 




1 1 ! 



1 1 1 1 1 1 


1 

1 1 

1 1 ' 1 1 M 



1 1 1 1 1 ' 

1 1 1 1 


1 1 

1 1 1 


O Die Anzeige soll als Onffre-Anzeige erscheinen (nur bei Privat-Anz^e). Chiffre-Gebühr 10,- DM inkl. MwSt zzgi zum Anzeigenpreis. 


In dieser Rubrik: 


D Biete an □ Suche Tausch □ StellenmarkUfreie Mitarbeit 
D Hardware □ Hardware n Geschäftsverbindungen 

T Software □ Software □ Verschiedenes 


if- 
















































































































































PC- 

Sonderhefte 

Jd , Ich irache von Ihrem Angebol Gebrauch und beslelied« umseiltQ 
ausaewihhen Produkte. Bille liefern Sie an folgende Anschnlf: 

Name 

StraSe/Postfach 

PLZ/ORT 

C Den Betrag bezahle Ich mll dem belgelüglen Verrechnungsscheck. 

D Ich büie um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur innerhalb der BRD). 


Datum Unterschii« (bei Mindorianrtgen des geieizlioheo veiireters) 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


Bitte 

ausreichend 

frankieren 



DOS-Taschenbücher und DOS- 
EXTRA-Sonderhefte sind eine zu¬ 
verlässige Informationsquelle für 
jeden PC-Besitzer. Nutzen auch 
Sie dieses Wissen, und vertiefen 
Sie es mit den dazu angebotenen 
Programmen aus dem DATA- 
BOX-Service. Den PC beherr¬ 
schen mit 

• DOS-EXTRA-Sonderheften 

• DOS-Taschenbüchern 

• DOS-DATABOX-Service 

Zur Erinnerung: 

Meine DOS-Sonderhefte, DOS- 
Taschenbücher, DOS-DATABOX 
wurden bestellt am 



PC- 

Software 


Ja, mache von Ihrem Ar>g8bol Gebrauch und beslelie die umseitig 

ausgewählten Produkte. Bitte liefern Sie an folgende Anschrift: 

__ _ 

j Name 

^ StraBe/Postfach 


PLZ/ORT 

C Den Betrag bezahle ich mit dem beigefügien Verrechnungsscheck. 

C Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur innerhalb der BRD). 


ÖÄjm Unterachilft (bei Mlnderiahrlgen de# geseülb^ Vertrete»») 



Kleinanzeige 

Bei Angeboten: 

Ich bestätige, daß ich alle Rechte an 
den angebotenen Waren besitze. 


Bitte 

ausreichend 

frankieren 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 



PC-Software vom DMV-Verlag ist 
unter Kennern bereits ein Begriff 
und auch ein gutes Angebot für 
Sie, Ihren PC mit starken und an¬ 
wendergerechten Applikationen 
auszustatten. Vom der Textverar¬ 
beitung bis zum Programmiersy¬ 
stem, beim DMV-Versandservice 
kaufen Sie günstig ein. Den PC 
konsequent nutzen mit PC-Soft¬ 
ware aus dem DMV-Versand¬ 
service 

• PC’Anwendungen 

• PC-Applikatlonen 

• PC-Entwicklungssysteme 


Zur Erinnerung: 

Meine PC-Software wurde bestellt am 


Bitte 

ausreichend 

frankieren 


Antwortkarte 


3 ■ c Cl^jaticen nützerft 

Wollen Sie etwas aus dem Com¬ 
puterbereich tauschen, verkaufen ^ 
oder erwerben, dann schalten Sie 
doch eine Gelegenheitsanzeige in 
unserem Klelnanzeigen-Markt. 

Dabei können Sie bestimmt so 
manche Mark sparen und ein gu¬ 
tes Schnäppchen machen. Ihre 
Chancen nutzen Sie konsequent 
mit 



Name 


Straße/Postfach 



PLZ/ORT 

□ Den Betrag bezahle ich mit dem beigefügten Verrechnungsscheck. 


Dtlum UnWfSCtuin Itwi Mindariähiigen d« aflsalzkchen Vertralef«) 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


• Gelegenheitsanzeigen 

• Kleinanzeigen 

• Gewerblichen Angeboten 

Zur Erinnerung: 

Meine Kleinanzeige wurde aufgege¬ 
ben am 
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CPC-Sonderhefte 

Randvoll mit nützlichen Tips und Tricks für Ihren CPC- 
Computer, sollten die Sonderhefte der PC Amstrad 
International in keiner Sammlung fehlen. Ob komplett 
als Kraftpaket oder als Kombipack mit der DATABOX - 
jetzt können Sie kompaktes CPC-Wlssen so günstig 
wie noch nie erwerben. 

CPC-Sonderheft-Kraftpaket 

Fünf CPC-Sonderhefte 

3, 5, 6 , 7, 8 dm 35,-* 

CPC-Sonderheft-Kombipack 

Ein Sonderheft (3, 5, 6, 7, oder 8) 

+ DATABOX dm 29,-* 

DMV-Sammelordner 

2 Stück DM 15,80* 

















































Joyce-Programmsammlungen 


GCPM - die grafische 
Benutzeroberfläche für den 
Joyce 

Schnell, bequem und komfortabel 

Beneiden Sie nicht länger die PC-Besitzer! Mit GCPM 
können Sie nun auch für den Joyqe eine komfortable 
grafische Benutzeroberfläche inklusive Mausbedie¬ 
nung, Uhr, Taschenrechner, Schnittstellensteuerung, 
Passwortabfrage und vielem mehr erwerben. 

GCPM bietet Ihnen unter anderem: 

• Steuern Sie alle Funktionen Ihres Joyce wahlweise über 
Maus oder Tastatur. • Arbeiten Sie mit der Darstellung aller 
Dateien in Tabellenform ähnlich LogoScript und den Stan¬ 
dardfunktionen wie Kopieren, Umbenennen und Löschen. 

• Auf bis zu drei Laufwerken können Sie Parameter. 
Suchpfade (ohne SETDEF) und das temporäre Laufwerk 
beliebig einstellen. • Verändern Sie Dateiattribute, und 
rufen Sie Programme direkt von GCPM aus auf. • Nutzen 
Sie die Funktionen zum Verschlüsseln und Komprimieren 
von ASCII-Dateien und die optionale Passwortabfrage 


Joyce-Bild-Editor 

Grafikprogramm zum Erstellen hochauf¬ 
lösender Grafiken 

Der Joyce ist mehr als ein Textverarbeitungssystem! 
Mit dem Joyce-Bild-Editor erstellen Sie komfortabel 
hochauflösende Grafiken, binden diese in eigene Pro¬ 
gramme ein oder geben sie auf dem Joyce-Drucker 
aus. 

Der Joyce-Bild-Editor - erschließt die Grafikfähigkeiten Ihres 
Joyce; 

• Exaktes, pixelgenaues Zeichnen durch Normal- und Feinmodus 

• Lösch- und Invertierungsfunktion in beiden Bearbeitungsmodi 

• Eintache Integration beliebiger Texte in die Bildetemenle 

• Laden und Speichern von Bildern mit übersichtlichem Dateimenü 

• Option zum Mischen von fertigen Bildern nach der Erstellung 

• Ausdruckmöglichkeit mit Randbestimmung auf dem Joyce- 
Drucker 

• Bis zu vier verschiedene, vordefinierte Druckformate anwählbar 

• Kompletter Quelltexi in Turbo Pascal 3.0 wird mitgeliefert 

Joyce-Programmsammlung 4: 

Bild-Editor nur dm 49,-* 


I Sparen Sie 
Zeit mit dem 
integrierten 
Taschenrech¬ 
ner mit Zwi¬ 
schenspei¬ 
cher und um¬ 
fassenden 
Rechenfunk¬ 
tionen 

• Verändern 
Sie beliebig 
die Grundein¬ 
stellungen 
der Schnitt¬ 
stelle. des 
Zeichensatzes, 

der Tastatur, der Maus, der Diskettenlaufwerke und des 
Druckers. • Ein Screensaver stellt den Monitor bei Nicht¬ 
gebrauch dunkel. • Mit dem GCPM-Starterset als Installa¬ 
tionsprogramm und 40seitigem Handbuch mit vielen Abbil¬ 
dungen können Sie im Handumdrehen GCPM auch auf 
Ihrem Joyce anwenden. Ein Programm, das jeder Joyce- 
Besitzer haben muß! 

Joyce-Programmsammlung 7: 

GCPM - Grafische Benutzeroberfläche nur dm 69,-* 


Joyce-Busineß-Paket 

Erstellung von Geschäftsgrafiken und 
Tabellentextverarbeitung 

Für Präsentationen erstellen Sie mit GsxPlot Ge¬ 
schäftsgrafiken und Statistiken in Form von Balken-, 
Kurven- und Punktediagrammen für Bildschirm und 
Drucker. Mit FeldTab füllen Sie Vordrucke, Formulare 
und Tabellen mit Ihren Texten aus. 

GsxPlot - die Lösung für Busineß-Grafik auf dem Joyce: 

• Menügesteuerte Erstellung von Balken- und Kurvendiagrammen 

• Strich- und Textgrafik ebenfalls über Menüs steuerbar 

• Online-Hilfe zur schnellen Einarbeitung in die Programmfunktionen 

• Darstellung der erstellten Grafiken auf Bildschirm und Drucker 

FeldTab - plaziert Ihre Texte millimetergenau: 

• Komplette Menüsteuerung im gewohnten Aufbau von LocoScript 

• Genaue Eingabe von Seitenlange, Zeilenabstand und Tabulatoren 

• individuelle Bestimmung von Schrittweiten und Schriftarten 

• Eingebauter, komfortabler Seiteneditor zur Eingabe der Texte 

• Textübernahme von LocoScript oder als ASCII-File möglich 

Joyce-Programmsammlung 3: 

Busineß-Paket nur dm 59,-* 
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Keine Inhattsverzelchnisse mehr mühsam einzeln auslesen! 
Mit GCPM sind Sie über alle Laufwerke immer im Bilde. 















Hochwertige Software zu Niedrigpreisen für Joyce-Besitzer 
aus der Angebotspalette des DMV-Verlags! 


Jede Programmsammlung ist, soweit nicht anders vermerkt, auf Joyce PCW 
8256 und 8512 lauffähig und wird als auf 3-Zoll-Diskette mit deutscher Bedie¬ 
nungsanleitung ausgeliefert. 


Joyce-Tabellenkalkulation 

Die universelle Tabellenkalkulation für alle Joyce-Be¬ 
sitzer. Ob Monatsbilanzen, Steuerabrechnungen oder 
Kontoführung-mit der Joyce-Tabellenkalkulation sind 
Sie allen Aufgaben gewachsen. 

Schnell, einfach und sicher-die Joyce-Tabellenkalkulation: 

• Schnelle Daleioperationen durch Benutzung der RAM-Oisk 

• Besonders schnelle Berochnungsalgorithmen für die Fetderwerte # Übersichtliche 
l/lenüführung und 
Abfangen von Fehl¬ 
eingaben • Stan¬ 
dardmäßig bis zu 
2574 frei belegbare 
Felder für Berech¬ 
nungen # Am Rand 
emgeblendefe For¬ 
mel mit bis zu 68 
möglichen Zeichen 

# Eigeiw Befehle 
zur Verkürzung der 
Formeln und Expo- 
nentialausdrOcke 

# Ausdruck der Er¬ 
gebnisse in bis zu 
drei verschiedenen 
Schrltiarten 

Joyce-Programmsammlung 6: 

Tabellenkalkulation für alle Joyce PCWs 

nur DM 59,- 

Joyce-Zeichensatz-Designer 

Erstellung von Zeichensätzen und 
grafische Darstellung mathematischer 
Funktionen 



Sonderzeichen und ganze eigene Zeichensätze für die 
Bildschirmausgabe erstellen Sie komfortabel und ein¬ 
fach mit dem Joyce-Zeichensatz-Designer. Mit dem 
Programm MGX können Sie mathematische Funktio¬ 
nen und Meßrethen auf Bildschirm und Drucker ausge¬ 
ben. 

Zelchensälzo setbstgcmacht mit dem Joyce-Zeichensatz-Designer: 

• Editieren, Erstellen imd Abspelchern von Bilds^irm-Zeicheosätzen 

• Drucken von vorformatierten ASCII-Tewen unter CP/M Plus möglich 

• Vier fertig gestaltete Zeichensatze im Lieferumtang enfrialten 

• Bonusprogramm zum Einsfeien der Joyce-S<Smittstelle und Tastatur 

MGX - Funktionen und Meßwerte grafisch auf Bildschirm und Drucker: 

• Arithmetische Grund- und Sünderfunktionen sind darstellbar 
9 Gleichzerttge Darstellung mehrerer Funktionen und MeBreihen 

• Druckerausgabe der Ergebnisse im Großlormal möglich 

• Neben einer Klammerebone ist eine Memory-Funklion integriert 

Joyce-Programmsammlung 1: 

Zeichensatz-Designer nur dm 49,-* 



Joyce-Pro¬ 
gramm¬ 
sammlung 2; 
Dateiverwaltung 
nur DM 49,-* 


Joyce-Datenbank 

Die ideale Datenbank für den Joyce mit minimalem 
Disketten-Speicherbedarf. Dennoch bietet Ihnen die 
Joyce-Datenbank maximal 27 Felder pro 
Datensatz, 50 Stellen pro Feld und bis zu 
35.000 Datensätze pro Datei. 

Daten effektiv verwalten mit der Joyce-Datenbank; 

• Besonders schnell durch Verwendung der RAM-Disk für das 
Programm 

• Universell durch die Ver¬ 
wendung von Standard- 
Diroktzugriffsdateien 

• Bequem durch Datentrans- 
ter von vorhandenen in neuan- 
gelegte Dateien # Maske zur 
Datenerfassung und Ände¬ 
rung wird automatisch gene¬ 
riert # Komfortabel durch 
Wahl der Sorlierkriterien oder 
Mehrfachsortierung 

• Listen mit automatischer 
Spattenformatierung und 
Spaltonsummen 9 Automa¬ 
tischer Eintrag neuer Dateien 
in das Oisketten-HauptmCTü 

• Speicherung einmal ge¬ 
wählter Druckparameter zur Wiederverwendung 

Joyce-Programmsammlung 5: 

Datenbank (pcw 9512 aut 
Anfrage) rtur DM 69,-* 


Joyce-Dateiverwaitung 

Universelle Erstellung und 
Verwaltung eigener Dateien 


Legen Sie Ihre Daten in eigene Dateienab, und 
verwalten Sie diese mit SuperDat. Rund¬ 
schreiben, Serienbriefe und eine Übernahme 
der Daten in LocoScript erledigen Sie mit 
SuperTex. Ein leistungsfähiger Taschenrech¬ 
ner steht Ihnen mit SuperCal zur Verfügung. 

SuperDat - Super-Dateiverwsltung für Ihre Daten: 

• Komfortable Eirigabe der Dajen in eine Eingabemaske 

• Mehrere Arten von Suchfunktionen, z.B. auch Suche mit Jokern 

• Dateien bis zu B Foldom und Datensätzo bis 255 Zeichen möglich 

SuperTex - verarbeitet Ihre Daten automatisch: 

• Entugenvonausgew^lten Einträgen aus SuperDat-Dateien m Text 

• Umwandlung von bis zu 30 Datensätzen m eine LocoScript-Datei 


SuperCal - der Tschenrechr>er für den Joyce; 
I Bietet Grundrechenarten, Winkel-, 

Quadrat- und Prozenttunktlonen 

# Neben ^ner Klammereborie Ist 
eir>e Memory-Funktlon integriert 

































Joyce-Sonderhefte 

Als Sonderpublikationen der PC Amstrad International bieten die Joyce- 
Sonderhefte auf jeweils 120 Seiten ausschließlich erstmalig veröffentlichte 
Beiträge sowie reichlich Tips & Tricks zu Joyce/PCW 8256, 8512 und 9512. 


Aus dem Inhalt: 



«in« PubHI 


«in» PuMII 


•Inn Put>l4 




Ut«rn(ur- 

vnnvolHirisl 


Drucke rspooler 

K^ierprogramm 

RAM-Monllor 


Joyce-Sonderheft 4: 


Strickmustergenerator 
WordStar-Verbesserungen 
Bundesligasimulation 
Super-Reaktionsspiel Filemanager 
Pulldown-Menüs 
Astrologieprogramm 
Diskettenmonitor 
Hauptstädte raten in LOGO 
Statuszeile für dBase und Basic 
Hardcopy-Routine für 24-Nadler 
LOGO macht Schachteln 
dBase-Literatu (Verwaltung 

Universelles Werkzeug zur Veränderung von dBase-Dateien 
Joyce-Sonderheft-Kombipack 


Joyce-Sonderheft 3: 

• Vokabeltrainer 

• RAM-Monitor - Speicherinhalte verändern 

• Memory-Spiel 

• Mini-DTP-Programm 

• Drucker-Spooler unter CP/M 

• Disketlen-Kopierprogramm bis 43 Spuren 

• Grafik auf dem Joyce-Drucker 

• Tastaturbelegung unter CP/M und 
LocoScript ändern 

• Reset ohne Datenverlust 

• Super-Werkzeugkiste dBase 

• Grafikutilities für LOGO 


Joyce-Sonderheft 2: 


• Adreßverwaltung 

• Archivprogramm (Video- oder Literaturverwaltung) 

• Pascal-Compiler in Basic 

• Suburbia (Spiel ähnlich Monopoly(R)) 

• Turbo-Pascal-Grafikroutinen ohne GSX 

• Komfortable Balkengrafik 

• Joyce-Zweitlaufwerk selbst anschließen 

• 3D-Plotter 

• Etikettendruckprogramm 

• Ordnung auf der Diskette mit LocoScript 

• dBase-Handbuch selbst ausdrucken 

• LOGO-Funktionenzeichner 


Jeweils ein Sonderheft + die DATABOX om 29,-^ 


dBa_8e: 

Werkzeugkiste 


Tlpä: 
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DMV-Bücher zum Joyce 

Alle Besitzer eines Joyce-PCW, die ahnten, daß der Horizont ihres 
Computers weit über LocoSript hinausgeht, finden jetzt ihre Bestätigung: 


Joyce - mehr als ein 
Textsystem 

Auf über 300 Seiten tragen die Autoren alles Wissenswerte 
über den Joyce/PCW zusammen. Anfänger wie Profis. 
Anwender wie Programmierer finden in diesem Buch einen 
reichen Schatz an Tips und Tricks sowie ein unentbehrli¬ 
ches Nachschlagewerk. 

Erstmals wird auch in einem Buch ein »heißes« Eisen 
ausführlich behandelt: die Hardware des Joyce. Besonders 
dieses Kapitel zeigt völlig neue Möglichkeiten des Joyce - 
so wird beispielsweise der Anschluß eines Sprachsynthe¬ 
sizers und der Selbstbau einer Schnittstelle besprochen. 

Ausführliche Kapitel über Basic und LOGO erlauben Ihnen, 
die Möglichkeiten dieser Sprachen auszureizen. Anfänger, 
die sich erstmals in der Programmierung versuchen wollen, 
finden durch sinnvolle, kurze Beispielprogramme wertvolle 
Unterstützung. Ein besonderes »Schmankerl« ist das gro¬ 
ße Extra-Kapitel zur JETSAM-Dateiverwaitung. 

Aus dem Inhalt: 

• Sprachen: 

LOGO als Grafiker und mit kompletter Befehlsübersicht 
Erläuterung aller Basic-Befehle mit Beispielprogrammen 
Generator für Jetsam-Verarbeitung 
Kurzübersicht für Turbo Pascal und C 

• Programmlerhilfen, Tips und Tricks: 
Steuercode-Tabellen für Bildschirm und Drucker 
XBIOS-Routinen 

OUTs und POKEs unter Basic 

• Hardware: 

Speichererweiterung 

Zweitlaufwerk 

Druckkopfreinigung 

Bildschirminverter 

Schnittstelle am Expansions-Port 

Sprachsynthesizer 

Joyce - mehr als ein Textsystem 

325 Selten mit farbigen Abbildungen, Leinen- 

Hardcover, 

inklusive 3-Zoll-Diskette jetzt nur dm 49,-* 


Unser Joyce-Hit weiter im 
Angebot: 

Praktische Textverarbeitung mit Joyce 

Der Autor Jürgen Sieben zeigt in diesem Buch die Möglich¬ 
keiten der Textverarbeitung LocoScript auf. Darunter vieles, 
was Sie von LocoScript nicht erwartet hätten.... 

Von der Pike auf werden Sie an den Umgang mit Schablo¬ 
nen und Standard-Layouts herangeführt. Einige Abstecher 
führen auch zu anderen Textverarbeitungen unter CP/M 
wie ED und Wordstar. 


JOYCE-mehr als ein Textsystem 

Anwendungen und Problemlösungen 
für PCW 8256/8512/9512 



htMrr 

Dftim-wid 

MadfiarBitH 


Auf der Diskette erhalten Sie über 50 Datei¬ 
en mit Schablonen, Brief- und Postkarten- 
Layouts, Serien-Rundschreiben. Etiketten. 
Formularen, Schriften, Bildschir¬ 
minstallationen und vieles mehr. 

Aus dem Inhalt: 

• LocoScript-Training für Fort¬ 
geschrittene 

• Wie rette ich den Text bei 
Systemfehlern? 

• Joyce-Tasteninstallation für 
Wordstar 

• Aleatorische Poetik: 

Der Computer dichtet 

Praktische 
Textverarbei¬ 
tung mit Joyce 

207 Seiten, 

Leinen-Hardcover, 

Inklusive 3-Zoll - 
Diskette 
jetzt nur DM 49,-* 
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Meisterstücke der Computergrafik 


High>Speed: 

Höchsteffiziente Programmierung in Assemb¬ 
ler und intelligente Berechnungs-Routinen für 
enorme Zeitersparnis 

Mandelbrot und Juliamenge: 

Mit automatischer Glättungsfunktion 

Stufenloser vertikaler Blickwinkel: 

Wahlweise Sicht von oben, unten, schräg 
und in der Totalen einzeln und stufenlos 
einstellbar 


Voller Bedienungskomfort: 

Auswahl komplett mit Pulldown-Menüs. 
Wahlweise Steuerung mit der Maus oder 
über die Tastatur 


Mehrere separate Bildspeicher: 

Getrennte Abspeicherung von Farben und 
Bild. Verwendung der Bilder in Malprogram¬ 
men 

Phantastische Farbmöglichkeiten; 

Farben-Mischpaletten im Auswahlmenü. 
Beliebige nachträgliche Veränderung der 
Bildfarben ^ 

Fraktal-Generator 3D PC 

Spezial Version für Amstrad/Schneider 1512 

alle PC/XT/AT mit EGA- oder VGA-Karte 

DM 69,-* 

Fraktal-Generator 3D CPC | 

3-Zoll-Diske1te dm 49,-* L 


DMV-Verlag - Postfach 250 • 3440 Eschwege 




























Software-Review—i 


Utrtseizun^ i'Wi Sfite 52 

zwecks Erhöhung des Punktekontos 
kräftig Randale gemacht werden, da 
nicht nur Punkte, sondern auch Extra¬ 
leben als Lohn für die Mühe winken. 
Die Reihenfolge der Levels, in der man 
das Fantasyland von seinen Feinden 
befreien will, ist frei wählbar. Diese 
Option ist allerdings nur zu Übungs¬ 
zwecken zu empfehlen, da die Endrun¬ 
den sonst nicht erreicht werden 
können. 

Hat man dagegen alle Levels in der 
vorgegebenen Reihenfolge überlebt, 
muß man sich erst noch mit zwölf 
Wächtern herumschlagen, bevor man 
dem Dark Harrier persönlich den Gar¬ 
aus machen kann. 

Schnelligkeit ist Trumpf 

Mit Space Harrier II ist die Umsetzung 
des gleichnamigen Automaten auf den 
CPC wirklich gut gelungen, und auch 
der Sound wird endlich einmal wieder 
den oftmals vernachlässigten Fähigkei¬ 
ten des CPCs gerecht. 

Der Bildschirm ist klar und übersicht¬ 
lich aufgebaut, und da jedes Level ei¬ 
nen anders gestalteten Hintergrund be¬ 
sitzt, kommt zu keinem Zeitpunkt Lan¬ 
geweile auf. Die Grafik scrollt ruhig 
auf den Spieler zu. ohne dabei trotz der 
vielen Details vom Wesentlichen abzu¬ 
lenken. Auch die Steuerung ist sauber 
und ohne Macken, wobei das eingebau¬ 
te Dauerfeuer den Zeigefinger merk¬ 
lich entlastet. 

Die Action selbst ist schnell, wird da¬ 
bei aber nie hektisch, weshalb gerade 
Einsteigern der Spaß an diesem Pro¬ 
gramm recht lange erhalten bleiben 
dürfte. Profis dagegen wird der 
Schwierigkeitsgrad des Programms auf 
längere Sicht wohl nicht genügen 
können. 

Space Harrier II ist ein Programm für 
all diejenigen, die sich gerne bei einer 
gcpllcgten Ballerci entspannen. Und da 
die Action nie in Arbeit ausartet, dürfte 
der Weltraumjäger für etliche vergnüg¬ 
liche Stunden am Bildschirm gut sein. 

(Antje Hink/jf) 


Bulienungs- ^ 

freundlkhkeit 

Grdfik 2 

Endnote 

Moliwdon ^ 

Sound 2 

2 

Space Harrier 11 

Hersteller: Grand Slam 

Steuerung: Joystick/Tastatur 

Preis; 49.95 DM 




Tun Sie 's dem Ziiliiuirzi f^leiclt: hÄne Ta/lie Golf hat 
noch niemandem fteschadei, auch nicht am CPC 


Jack Nicklaus’... Golf 

Wenn berühmte Leute ihren guten 
Namen für Sportsimuiationen her- 
gebeii, so bedeutet das nur in den 
seltensten Fällen auch ein gutes Pro¬ 
gramm (siehe die vielen miserablen 
FuBballspiclchen). Im Falle dieser 
Golfsimulation Jedoch ist dem ame¬ 
rikanischen Softwarehaiis Accolade 
ein Volltreffer gelungen, der nun 
zum Glück auch endlich für den 
CPC umge.setzt wurde. 

Hat man die persönlichen Daten und 
Golffähigkeiten eingegeben, beginnt 
der Ernst des Lebens. 

Als erstes sieht man nun nach ein paar 
kommentierenden Worten des Mei¬ 
sters das zu spielende Loch aus der Vo¬ 
gelperspektive. Alle Hindernisse sind 
klar zu erkennen, auch die Entfernun¬ 
gen vom Abschlagplaiz bis zum Ziel, 
sowie alle das Loch betreffenden De¬ 
tails wie Name, Nummer und Par sind 
angegeben. Hat man sich eine Strategie 
zurechtgelegt, schaltet man weiter zum 
Tee-Off. Dort ist die Richtung einzu- 
stellcn, die der Ball nehmen soll, nach¬ 
dem man sich Windrichtung und -stär¬ 
ke angesehen hat. Und nun kommt die 
Hauptsache: Wir schwingen den Golf¬ 
schläger. Am linken Bildrand ist eine 
Skala zu sehen, auf der die mit dem je¬ 
weiligen Schläger zu erreichende Wei¬ 
te in Prozent angegeben wird. Das Ma¬ 
ximum ist ebenso gekennzeichnet wie 
der ideale Abschlagspunkt. Mil Druck 
auf Feuerknopf oder Space-Taste kann 
man so die Härte des Schlags sehr ge¬ 
nau dosieren und mit Hilfe der sehr gu¬ 
ten (engli.schen) Anleitung auch ausge¬ 
zeichnete Resuitatc erreichen. 

Diese werden nach jeder Runde in ei¬ 
ner Tabelle verewigt, die auch die Zahl 
der Birdies, Eagles und andere statisti¬ 
sche Einzelheiten festhält. Wassergrä¬ 
ben. Sandlällen. Bäume und andere 


Hindernisse sind zur Genüge vorhan¬ 
den, da hat Langeweile keine Chance. 
Die Unterschiedlichkeit der Plätze tut 
ein übriges, um die Spannung zu er¬ 
halten. 

Ein Profi plaudert aus der Schule 

Die Lebensechtheit dieses Programms 
kommt nicht von ungefähr, hat doch 
Jack Nicklaus selber bei der Herstel¬ 
lung mitgearbeitet. So wird von ihm zu 
jedem Loch ein passender Kommentar 
vorweggeschickt, auch Hinweise auf 
die beste Spiclw-eise fehlen während 
der Partie nicht. 

Jack Nicklaus, der “Golfspieler des 
Jahrhunderts“, kann jedoch nicht nur 
ganz fäntasli.sch den Golfschläger 
schwingen. Er entwirft und baut auch 
selber Golfplätze auf der ganzen Welt, 
die ihm ebenfalLs internationalen Ruhm 
einbrachten. Zwei der drei Plätze, die 
man in diesem Programm durchspielen 
kann, sind von Ihm im Original ent¬ 
worfen worden. Auf einem dritten, fik¬ 
tiven Platz läßt er die 18 Löcher zu¬ 
sammen. 

Die Grafik ist einfach, jedoch recht ef¬ 
fektiv. wenn der Bildaulbau auch etwas 
schneller sein könnte. Sound gibt es .so 
gut wie keinen, aber Golf ist schließ¬ 
lich auch eine eher ruhige und beschau¬ 
liche Angelegenheit, ln Anbetracht 
dessen haben die Programmierer eine 
Save-Funktion eingebaut, so daß die 
oftmals sehr langen Partien nicht unbe¬ 
dingt in einem Rutsch durchgcspielt 
werden müssen. 

Nur die frische Luft fehlt 

Ansonsten fühlt man sich beim Spielen 
echt wie auf dem Golfplatz. Diese Si¬ 
mulation ist ein Muß für alle Golffans. 
Zahnärzte und all die Unglücklichen, 
denen wegen Heuschnupfens der Weg 
auf die grüne Wiese verwehrt ist. 

(Antje Hink/jO 


Bedienungs- ^ 
freundlk’hkuit ^ 

Grufik 2 

Endnote 

2 

Mouvaliüii ^ 

Sound 

,hck Nicklaus' Greatest iS Haies ul'Major Chaiii|Misiijp Golf 
Her.steller: Accolade 

Steuerung: Joystick/Tastatur 

Preis: 49.95 DM 
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^Programm 



Word Riddle 

Zeitkritische Wortsuche mit Extras 

Beispiele dafür, daß sich der CPC in manchem Punkte wahrlich nicht hin¬ 
ter den “professionellen“ Computern verstecken muß, haben wir seit 
Bestehen der PC Amstrad International immer wieder gegeben. Lassen Sie 
uns mit einem neuen Highlight der Programmierkünste auf dem CPC diese 
Reihe fortführen. 


Mit Word Riddle erhalten Sie ein 
Wortsuchspiel, bei dem Sie vor 
Überraschungen nicht sicher sind. 
Nach der noch harmlosen Frage 
nach Anzahl der Spieler und der zu 
erratenden Worte (derer 1001 sind 
im Programm enthalten) erscheint 
ein Spiclleld, das es in sich hat. 

1001 Wor te 

Das Spielprinzip bestiehl dabei 
durch seinen einfachen Autbau. 
Vom Programm wird Ihnen ein 
buchslabenloses Wort vorgegeben 
— nur die Anzahl der Buchstaben 


ist Ihnen bekannt. Drücken Sic nun 
eine Taste, so ermittelt der Compu¬ 
ter. ob der Buchstabe im Wort vor- 
kommi oder nicht. Ist er vorhan¬ 
den. so erscheint an den entspre¬ 
chenden Feldern das richtig errate¬ 
ne Zeichen. Bei falschem Tippen 
verliert man eine der für den Bonus 
wichtigen Kugeln. Sind keine Ku¬ 
geln mehr vorhanden oder ist die 
vorgegebene Zeit überschritten, so 
gilt das Wort als nicht erraten; in 
diesem Fall gibt der Computer die 
Lösung an. Löst man die Aufgabe 
innerhalb des Zeitlimits, so werden 


alle übriggebliebenen Kugeln auf 
die Reise in ein Spielfeld geschickt, 
in dem sie ordentlich Bonuspunkte 
sammeln können. 

Raten g eg en die Zeit 

Ist der Spieler besonders schnell, so 
wird ihm darüber hinaus ein Zeit- 
bonus gutgeschrieben. 

Daß die akustische und visuelle 
Präsentation den/die Spieler zu im¬ 
mer neuen Runden verführt, sei 
hier nur am Rande erwähnt. Ani¬ 
mationen und Gimmicks sorgen für 
fortwährende Unterhaltung. Daß 
dieser Leckerbissen nicht als Li- 
sting in dieser Ausgabe erscheint, 
liegt an der Länge des Programms. 
Wir wollen es Ihnen dennoch nicht 
vorenthalien und bieten es auf der 
DATABOX-Diskette als Sonderbo¬ 
nusprogramm an. Viel Vergnügen! 

(Ernst Klasarek/jf) 
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Listing—i 


1730 DATA 80,00,00,00,00,00,00,00,00,00,07 t2909] 
,FF,FE,04,00,02,FC,CO,62,04,4AC 

1740 DATA 30,A2,04,09,22,74,30,23,8C,CO,22 [38461 
,8C,00,22,ec,F8,22,74,00,02,600 

1750 DATA 07,FF,FE,00,00,00,07,FF,FE,74,00 [3255] 
,02,8C,C0,62,8C,30,A2,8C,09,81F 

1760 DATA 22,74,30,23,04,CO,22,04,00,22,FC [3888] 
,F8,22,04,00,02,07,FF,FE,00,615 

1770 DATA 00,00,07,FF,FE,04,00,02,FC,IF,02 [37051 
,04,31,82,04,lF,02,74,3E,33,4Be ' ' ' J 

1780 DATA 8C,63,E2,8C,60,C2,8C,1F,32,74,00 [36491 
,02,07,FF,FE,00,00,00,07,FF,7DC ' ' i J 

1790 DATA FE,74,00,02,8C,1F,02,8C,31,82,8C [30171 
,1F,02,74,3E,33,04,63,E2,04,63F l ^ j 

60,C2,FC,IF,32,04,00,02,07,FF,FE [2835] 
,00,00,00,7F,FF,EO,40,00,20,737 ' ' ' ^ J 

1810 DATA C1,FO,20,43,18,20,41,FO,20,43,E3 [3428] 
,3F,46,3E,2O,C6,0C,2O,41>3'7CC ' ' ' J 

1820 DATA 20,40,00,20,7F,PF,EO,00,00,00,7F [4423] 
,FF,EO,40,00,20,CC,06,20,43,6D1 •’ 

0A,20,40,92,20,43,02,3F,4C,02,20 [3336] 
,CO,02,20,4F,82,20,40,00,20,441 ' ' ' ‘ ‘ 

1840 DATA 7F,FF,EO,00,00,00,7F,FF,EO,40,00 [43171 
.20.C0,2O,20,40,60,20,40,A0,7BC 

185Ö DATA 20,41,20,3F,40,20,20,CO,20,20,40 [29601 
,20,20,40,00,20,7F,FF,EO,00,57E ' ' ' ^ ‘ 

1860 DATA 00,00,7P,FF,EO,40,00,20,CO,06,20 [38061 
,40,OA,20,4F,92,20,40,02,3P,590 ' ' ' ^ J 

1070 DATA 4F,82,20,CO,02,20,40,02,20,40,00 [26091 
,20,7F,PP,EO,00,00,00,00,00,4F3 

1880 DATA 00,00,00,00,00,00,00,00,00,00,00 [2168] 
,00,00,00,00,00,00,00,00,00,000 ' ' I J 

1890 DATA 00,00,00,00,00,00,00,00,00,00,00 [21681 
,00,00,00,00,00,00,00,00,00,000 

1900 DATA 00,00,00,00,00,00,00,00,00,00,00 [21681 
,00,00,00,00,00,00,00,00,00,000 

1910 DATA 00,00,00,00,00,00,00,00,00,00,00 [21681 
,00,00,00,00,00,00,00,00,00,000 

1920 DATA 00,00,00,00,00,00,00,00,00,00,00 [21681 

,00,00,00,00,00,00,00,00,00,000 ' ' • J 

1930 DATA 00,00,00,00,00,00,00,00,00,00,00 [2168] 
,00,00.00,00,00,00,00,00,00,000 

1940 DATA 00,00,00,00,00,00,00,00,00,00,00 [2091] 
.00,00,00,00,00,00,00,00,01,001 

1950 DATA 00,00,00,00,00,01,01,00,00,00,00 [3141] 

,oo,oi,oi,oo,oo;oo;oojoo'oi 00 ^ ' / ^ l 

1960 DATA 01,00,00,00,00,00,01,01,FF,FF,FF [3938] 

,FF,FF,FF,01,FF,FF,FF,FF,FF,AF9 

1970 DATA FF,01,PF,FF,FF,FF,FF,FF,01,FF,FF [3460] 

,FF,FF,FF,FF,01,FF,PF,FF,PF,10F2 

1980 DATA FF,FF,01,FF,FF,FF,FF,FF,FF,01,FF [5019] 

,FF,FF,FF,FF,FF,01,FF,FF,FF,10F2 

FF/FF/S'F/00,00,00,00,00,00,00,01 [3121] 

,FF,FF,FF,FF,FF,FF,00,00,00,8F8 ' ' ' i J 

2000 DATA 00,00,00,00,01,FF,FF,FF,FF,FF,FF [3350] 

,oi,ff,ff,ff,ff,ff,ff,oi,ffJcf6 ' ' ' ^ 

2010 DATA FF,ff,FF,FF,FF,01,FF.FF,FF,FF,PF [3074] 

,FF,01,FF,FF,FF,FF,FF,FF,01 loh ' ' ' ‘ 

2020 DATA FF,FF,FF,FF,PF,FF,01,FF,FF,FF,PF [36381 

,ff,ff,oi,ff,ff,ff,ff>f,ff;iiI'o ' ' ' l J 

2030 DATA 01,00,00,00,00,00,01,01,00,00,00 [3775] 

,oo,oo,oi,oi,oo,oo,oo,oo|oo'oo^ ' ' ’ J 

2040 DATA 01,01,00,00,00,00,00,01,00,00,00 [3362] 
,00,00,00,00,00,00,01,80,00,084 

2050 DATA 00,00,00,00,06,60,00,00,00,00,18 [3752] 
,18,18,01,00,00,00,06,60^06^18 ' ' ' 

2060 DATA 07,00,00,00,01,80,01,9P,00,00,07 [2385] 

,FF,60,00,7F,00,00,01,FF,18,425 ' ' ' ^ J 

01,FF,18,00,00,7F,00,07,FF,60,00 [4246] 

,01,9F,00,00,01,80,00,06,07,428 ' ' ' ^ ^ 

2080 DATA 00,00,06,60,00,18,01,00,00,18,18 [3547] 
,00,60,00,00,00,00,06,00,80^95 ' ' ' ^ > 

2090 DATA 00,00,00,00,01,00,60,00,00,00,00 [2735] 

,o6,oo,i8,oi,oo,oo,ia,i8,oo'oB6 ' ' ’ ^ J 

2100 DATA 06,07,00,00,06,60,00,01,9F,00,00 [2116] 

,01,80,00,00,7F,00,07,FF,60,379 

2110 DATA 00,01,FF,18,Ol,FF,18,00,07,PF,60 [3143] 

,00,7F,00,00,00,01,80,01,9F,536 ‘ 

2120 DATA 00,00,00,06,60,06,07,00,00,00,18 [3209] 
,18,18,01,00,00,00,00,06,60,122 ' ' ’ > 

2130 DATA 00,00,00,00,00,01,80,00,00,00,00 [2229] 
,00,00,00,00,00,00,00,01,00,082 

2140 DATA 00,1F,F0,00,10,10,00,10,10,00,10 [2648] 
,10,00,10,10,00,10,10,00,10,IBF * 

10/00,10,10,00,10,10,00,1F,F0,00 [3078] 
,01,00,00,01,00,01,9F,FO,06,2P7 ' ' ' i J 

10,10,19,90,10,00,70.10,00,18,10 [2437] 
,00,16,10,00,11,90,00,10,70,2C8 ' ' ' ^ j 

2170 DATA 00,10,18,00,1F,F6,00,01,00,00,01 [3048] 
,00,OC,1F,FO,07,10,10,07,90,318 

10,00,70,10,00,18,10,00,16,10,00 [3194] 
,11,90,00,10,70,00,10,18,00,227 ' ' ' ^ J 

2190 DATA 1F,F6,00,01,00,00,01,00,00,01,00 [3737] 

,00,01.00,00,01,00,00,7F,FC 295 ' ' ' ^ 

2200 DATA 00,00,00,00,00,00,00,7F,FC,00,01 [30471 
,00,00,01,00,00,01,00'00'01 17F 

00,00,41,00,00,71,00,00,79,00,00 [3166] 
,09,00,00,7F,FC,00,02,00'00'2BI 

,00,01,10,00,01,00,00,OD,00,IFD ' ' ' ^ J 

00,31,00,00,C9,00,00,05,00,00,7F [3283] 
,FC,00,01,00,00,00,80,00,7P,37A 


2240 DATA FC ,00,01,40,00,01,20,00, 01 , 10 ,00 [3003] 
,01,00,00,01,00,00,01,00,00,172 ' ' ' ^ j 

2250 DATA 01,00, 00 ,01,00,00, 7F, FC,00,00, 00 [30271 
00,40,04,00,7F,FC,4B7 ' ' i i 

02, 01,00,OF,81,00,02,01,00,00,7F [3750] 
E7,OE,00,18,13,F0,4D9 ' ' ' ^ > 

64,33,CI,83, 22, 36, 01, 30,08,03, 10 [3053] 
08,18,03,C9,E0,0O,5DA ' ' ' ^ j 

7F,00,00,08,00,00,7F,00,F3,80,E7 [2684] 
13,10,62,30,Fl,83,581 ' ' ' J 

2 1,F6,01,30,08,03,10,FF,82,OC,08 [4246] 
FO,00,FF,80,00,08,606 

00,00,01,00,00,01,00,00,01,00,00 [2224] 
7F,FC,00,lF,FO,00,4aA ' ' i J 

0F,E0,00,03,80,00,FF,FE, 00, 01,00 [2747] 
00,01,00,00,01,00,373 ' ' ' ^ J 

00,01,00,00,FF,FE,00,7F,FC,00,3F [2873] 
SO,00,07,CO,00,FF,765 ' ' ' > 

FE,00,00,00,00,PP,FE,00,01,00,00 [3112] 
01,00,00,01,00,00,2FF 

01,00,00,FF,FE,00,7F,FC,00,1F,FO [3133] 
00,03,86,00,FF,FE,803 ' ' i J 

00,01,00,00,01,00,00,01,00,00,01 [2134] 
00,00,FF,FE,00,7F,281 ' ' ' ^ > 

FC,OO,lP,FO,OO,OF,EO,OO,O3,80,0O [3639] 
01,00,24,01,00, FC, 6AE ' ' ' ^ ‘ 

01,00,90,01,00,00,01,00,00,01,00 [2199] 
00,FP,FE,00,7F,FC,40D ' ' ' ^ J 

00,1F,FO,00,8F,E2,00,83,82,00,FF [3583] 
00,00,01,00,00,01,585 • ' ' > 

00,00,01,00,00,01,00,00,01,00,00 [2224] 
7F,FC,00,1F,F0,00;48Ä 
8F,E0,00,83,80,00,FF,FE,00,01,02 [2981] 
00,01,00,00,01,00,477 ^ 

S9'H'F2'2°"^^'^o,oo,if,fo,oo,if [ 3916 ] 
F0,00,1F,F0,00,1F,679 > f i J 

FO,00,1F,PO,00,1F,FO,00,1F,FO,00 [3025] 
01,00,00,CF,F0'03)5E1 ' ' ' ^ 

0F,F0,0C,CF,F0,00,3F,F0,00,0F,F0 [4031] 
OO,OF,F0,OO,OF,FO,7F5 ' ' ' i 

22'2F'FS'2°'0^'^3,oo,oi,oo,oo,oi [ 4321 ] 
F0,03,8F,P0,03,CF,568 ^ 

FO,0O,6F,FO,OO,lF,FO,OO,OF,FO,OO [3041] 
0F,F0,00,OF,FS,00^762 ' ' ' 

^1/00,00,01,00 [3646] 
00,7P,FC,00,1F,FO,58F ' ' ' ^ > 

00,OF,£0,00,03,80,00,FF,FE,00,03 [3292] 
00,00,09,00,01,Fl,472 ' ' ' ^ J 

00,00,01,00,01,El,00,00,11,00,00 [2799] 
05,00,00,FF,FE,00,2FF ' ' ' ^ 

00,01,00,00,01,00,603 ' ' l J 

00, 01,00,00,01,00,01,FF,FE,00,FE [3736] 
IC,00,38,3E,00,10,424 ' ' ' ^ j 

7F,00,FF,FF,00,01,00,00,01,00,00 [2758] 
01,00,00,0l,00,0i;283 l^/=oj 

CI,00,00,21,00,00,11,00,01,FF,FF [3158] 
00,7C,38,00,38,7C,568 ^ ^ 

29 ' iS'00,01,00,00,7F [1878] 
E7, OS,00,18,13,07,668 ‘ 

E4,30,CI,£3,20,36,61,30,08,03,10 [2532] 
08,18,03,C9,E0,00,615 ' ' ' 

'22'00/00,00,00,7F,00,F3,C1,E7 [3325] 
13,06,64,30,C7,83,5B6 ' ' • ^ J 

20,37,E1,30,08,03,10,7F,04,OC,08 [2916] 
E0,0O,7F,0O,0o'o 8U6^ 
O0,01,7F,00,03,81,F0,lD,01,0C,21 [4403] 
01,03.47.FP,E1,60,52E ' ' ' ^ 

01,03,20,03,82,18,07,CC,07,81,70 [3350] 
00,01,00,01,FF,00,50C ' ' ' ^ 

2Mi'^?'i?'2^'^^'21/01,02,61,01 [3231] 
CI,60,01,03,20,07,489 ' ' i J 

C2,18,03,9C,07,81,60,00,FF,80,00 [3670] 
00,00,00,00,00,00,3E1 ^ ^ 

00,00,00,00,00,00,00,00,00,00,00 [2168] 
00,00,00,00,00,00,000 ^ ^ 
22 '° 2 '®®'®^'°®'° 0 , 00 , 00 , 00 , 00,00 [ 21 68] 
00,00,00,00,00,00,000 
00,00,00,00,00,00,00,00,00,00,00 [2168] 
00,00,00,00,00,00,000 ^ ‘ 
22'22'22'22'°°'®°'00/00/00,00,00 [ 2168 ] 

00,00,00,00,00,00,000 ' ' I i 

00,00,00,00,00,00,00,00,00,00,00 [2168] 
00,00,00,00,00,00,000 ' ' I. j 

00,00,00,00,00,00,00,00,00,00,00 [21681 

00,00,00,00,00,00,000 ' ’ ' L oj 

00/00,00,00' 00 , 00 , 00 , 00 , 00 , 00,00 [laio] 

00,00,00,01,00,00,001 ' ' I j 

01,00,00,01,00,00,00,80,00,00,40 [2397] 
00,00,10,00,00,08,OFA ’ ' ' ^ 

00,01,00,00,01,00,00,01,00,00,01 [2947] 
00,00,01,00,00,01,007 ' ' L j 

04,00'01'FF,00,00,10,00,00,20,00 [2830] 
00,80,00,00,80,00,274 ' ' ' '■ 

00,80,00,00,80,00,00,80,00,00,00 [3535] 
00,00,00,00,00,01,181 ' ' ' L J 

8p,00,01,80,00,01,80,FF,FF,80,00 [3108] 
01,80,00,01,80,00,583 ' ' i i 

00,00,00,00,00,00,02,00,00,02,00 [2938] 
00,02,00,00,02,00,OOA ^ 

00'Of'80/00,10,40,00,10,40,00,00 [4044] 
00,00,00,00,00,00,12F ' ' ' ^ ^ 


1 


,00,7F,PC, 
2260 DATA 
,00,F3,C1, 
2270 DATA 

^ 286 ®dAta' 

,0C,00,1C, 
2290 DATA 
,0C,03,88, 
2300 DATA 
,FF,FE,00, 
2310 DATA 
, 00 , 01 , 00 , 
2320 DATA 
,F8,00,0F, 
2330 DATA 
, 01 , 00 , 00 , 
2340 DATA 
,00,0F,E6, 
2350 DATA 
, 00 , 00 , 01 , 
2360 DATA 
,PF,FE,12, 
2370 DATA 
, 00 , 01 , 00 , 
2380 DATA 
,FE,00,01, 
2390 DATA 
,FF,FE,00, 
2400 DATA 
, 00 , 01 , 02 , 
2410 DATA 
.F0,00,1F, 
2420 DATA 
, 01 , 00 , 00 , 
2430 DATA 
,00,0F,F0, 
2440 DATA 
,00,06,OF, 
2450 DATA 
,0F,F0,00, 
2460 DATA 
,00,FF,FE, 
2470 DATA 
,00,00,05, 
2480 DATA 
,09,00,00, 
2490 DATA 
,00,FF,FE, 
2500 DATA 
,08,00,7C, 
2510 DATA 
, 01 , 00 , 00 , 
2520 DATA 
,00,FE,10, 
2530 DATA 
,00,F3,Cl, 
2540 DATA 
/7F,04,0C, 
2550 DATA 
.OE,00,18, 
2560 DATA 
,18,03,C9, 
2570 DATA 
,01,02,61, 
2580 DATA 
,00,FF,80, 
2590 DATA 
,03,47,FF, 
2600 DATA 
, 01 , 00 , 00 , 
2610 DATA 
, 00 , 00 , 00 , 
2620 DATA 
, 00 , 00 , 00 , 
2630 DATA 
. 00 , 00 , 00 , 
2640 DATA 
, 00 , 00 , 00 , 
2650 DATA 
, 00 , 00 , 00 , 
2660 DATA 
, 00 , 00 , 00 , 
2670 DATA 
, 00 , 00 , 00 , 
2680 DATA 
, 00 , 00 , 20 , 
2690 DATA 
, 00 , 00 , 01 , 
2700 DATA 
,00,40,00, 
2710 DATA 
, 00 , 00 , 00 , 
2720 DATA 
,01,80,00, 
2730 DATA 
, 00 , 02 , 00 , 
2740 DATA 
, 00 , 00 , 00 , 
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2750 DATA 00,00,01,00,00,01,00,00,01,00,00 
,61,OC,00,19,30,00,07,CO,00,180 
2760 DATA 01,00,00,07,C0,00,19,30,00,61,OC 
,00,01,00,00,01,00,00,01,00,181 
2770 DATA 00,01,00,00,OF,EO,00,71,IC,00,99 
,32,01,07,CI,01,01,01,01,07,31C 
2780 DATA CI,00,99,32,00,71,IC,00,OF,E0,00 
,01,00,00,01,00,00,01,00,00,308 
2790 DATA 01,00,00,FF,FE,00,00,00,00,FF,FE 
,00,80,02,00,FF,FE,00,00,00,67A 
^800 DATA 00,FF,FE,00,01,00,00,01,00,00,00 
,00,00,00,00,00,00,00,00,00,IFF 
2810 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,000 
2820 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,000 
2830 DATA 00,00,00,00,00,00,00,00,00,00,00 
.00,00,00,00,00,00,00,00,00,000 
2840 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,000 
2850 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,000 
2860 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,000 
2870 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,000 
2880 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,ooO 
^890 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,000 
2900 DATA 00,00,00,00,00,00,00,00,00,00,00 
.00,00,00,00,00,00,00,00,00,000 
2910 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,000 
2920 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,000 
2930 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,000 
2940 DATA 00,00,00,00,00,00,00,00,00,00,00 
.00,00,00,00,00,00,00,00,00,000 
2950 DATA 00,00,00,00,00,00,00,00,00,00,00 
.00,00,00,00,00,00,00,00,00,000 
2960 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,000 
2970 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,000 
2980 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,000 
^996 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,000 
3000 DATA 00,00,00,00,00,00,00,00,00,00,00 
,00,00,00,00,00,00,00,00,00,000 
3010 dAtA 00,00,00,00,00,00,00,00,00,00,00 
.00,00,00,00,00,00,00,00,00,000 
äo20 DATA 00,18,18,Iß,18,FF,7E,3C,10,FF,FF 
.FF,FF,FF,FF,FF,FF,18,3 C,7 E,AF6 
3036 dAtA FF,18,18,18,10,18,3E,58,3C,1A,7C 
,ia,00,00,C6,CC,18,30,66,C6,5FD 
3040 dAtA 00,2D,6C,38,76,DC,CC,76,00,1B,18 
,30,00,00,00,00,00,0c,18,30,419 
3050 DATA 30,30,18,OC,00,30,18,OC,OC,OC,18 
,30,00,28,28,E8,08,F8,00,00,370 
3060 DATA 00,00,18,18,7E,18,18,00,00,00,00 
.00,00,00,08,10,20,00,00,00,116 ^ 

3076 DATA 7E,00,00,00,00,00,00,00,00,00,00 

, 10,00,02,04,08,10,20,40,80,18C 

3080 DATA 00,7C,86,0A,92,A2,C2,7C,00,10,30 

,50,10,10,10,38,00,7C,82,02,5F6 

3096 dAtA OC,70,80,FE,00,78,84,02,OC,02,84 

,78,00,80,80,88,FE,08,08,08,6AÖ 

hoo DATA 00,FE,80,80,7C,02,02,FC,00,7C,80 

,60,FC,82,82,7C,00,FE,02,04,876 

ill6 DATA 08,10,10,10,00,7C,82,82,7C,82,82 

,7C,00,7C,82,82,7E,02,82,7C,6B2 

3120 DATA 00,00,00,00,10,00,10,00,00,00,00 

,3F,20,2F,28,28,28,04,08,10,142 

3130 DATA 20,10,06,04,00,00,00,7E,00,00,7E 

,00,00,40,20,10,08,10,20,40,220 

^146 DATA 00,78,04,04,38,20,00,20,00,7C,82 

,82,82,82,44,EE,00,10,28,44,52A 

3156 DATA 82,FE,82,82,00,F8,04,84,FC,82,82 

.FC,00.7E,80,a0,80,80,80,7E,APC 

h66 dAtA 00,FC,82,82,82,82,82,FC,00,FE,80 

,80,FO,BO,80,FE,00,FE,80,80,B6C 

3176 dAtA FO,80,80,aO,00,7E,80,80,8E,82,82 

,7C,00,82,82,82,FE,82,82,82,A06 

3100 DATA 00,10,10,10,10,10,10,10,00,10,10 

,10,10,10,10,60,00,8a,90,AO,2Ea 

il96 DATA CO,AO,90,88,00,80,80,80,80,80,80 

,FE,00,82,C6,AA,92,82,82,82,A80 

3200 dAtA OO,82,C2,A2,92,8A,86,02,OO,7C,82 

,82,82,82,82,7C,00,FC,82,82,98C 

^210 dAtA FC,80,80,80,00,7C,82,82,82,82,92 

,7C,04,FC,82,82,FC,88,84,82,A9C 

3220 dAtA 00,7E,BO,80,7C,02,02,FC,00,FE,10 

, 10,10,10,10,10,00,82,82,82,5DE 

I236 dAtA 82,82,82,7C,00,82,82,82,82,44,28 

,10,00,82,82,82,82,82,54,28,78C 

3240 DATA 00,82,44,28,10,28,44,82,00,82,44 

,28,10,10,10,10,00,FE,04,08,424 

3256 DATA 10,20,40,FE,00,00,00,44,44,44,78 

,40,40,00,00,00,00,00,00,00,332 


[2364] 
[3003] 
[3332] 
[3549] 
[3027] 
[3094] 
[2168] 
[2168] 
[2168] 
[2168] 
[2168] 
[2168] 
[2168] 
[2168] 
[2168] 
[2168] 
[2168] 
[2168] 
[2168] 
[2168] 
[2168] 
[2168] 
[2168] 
[2168] 
[2168] 
[2168] 
[2160] 
[3250] 
[3174] 
[2506] 
[3245] 
[2793] 
[4557] 

[3043] 
[3678] 
[3317] 
[3130] 
[3402] 
[3553] 
[2750] 
[1996] 
[2449] 
[2856] 
[2509] 
[ 2202 ] 
[3164] 
[2858] 
[2996] 
[3568] 
[4120] 
[3182] 


3260 DATA 00,82,00,82,82,82,82,7C,00,00,00 [2619] 
, FF, 00, FF, 00,00,00,00,00,00,504 

3270 DATA 00,00,00,00,FF,28,28,2F,20,3F,00 [3026] 
.00,00,28,28,28,28,28,28,28,2F5 

3280 DATA 28,80,80,FC,82,82,82,FC,00,00,00 [3773] 
,7E,80,80,80,7E,00,02,02,7E,7A4 


10 REM”***************************” 

20 REM"*** -> SCHALTPLANER <- ***" 

30 REM"***************************" 

40 REM"*** ***" 

50 REM"*** written & designed ***" 

60 REM"*** by... ***" 

90 REM"*** 8593 Tirschenreuth ***" 

100 REM"***-***'' 

110 REM"*** $ Mai 1989 ***" 

120 REM"***************************" 

130 REM"- 

140 FOR X=35952 TO 41648 STEP 20 

150 ; sum=0 

160 : FOR y=0 TO 19 

170 : : ReAd aS:zahl=VAL("&"+aS) 

180 : : suin=sum+zahl 

190 : : PORE x+y,zahl 

200 ; NEXT y 

210 : READ chksumS 

220 : chksuin=VAL("&"+chksumS) 

230 : zeile=(x-35952)/2+300 

240 : IF chksuni=suin THEN PRINT"Zeile";2eil 

e;"OK.":GOTO 260 . . -n .. .. 

250 : PRINT"Fehler in Zeile:";zeile;" 

260 NEXT X 

270 PRINT"<ESC> --> Abbruch" 

280 PRINT"Taste —> Abspeichern": CALL &BB 

18:SAVE"PLANER",B,&7500,&2DB1,S95B6 

290 END 

300 DATA 82 , 82 , 82 ,7E, 00 ,00,00,7C,82,FE,80, 

7E.OO,18,20,20,30,20,20,20,5E6 

310 DATA 00,00,00,7C,82,82,7E,02,FC,80,80, 

FC,82,82,82,82,00,00,10,00,710 

320 DATA 10,10,10,10,00,00,10,00,10,10,10, 

10,60,40,40,48,50,60,50,48,300 

330 DATA 00,20,20,20,20,20,20,18,00,00,00, 

EC,92.92,92,92,00,00,00,70,488 

340 dAtA 42,42,42,42,00,00,00,70,82,82,82, 

7C,00,00,00,FC,82,82,FC,80,702 

350 DATA 80,00,00,7E,02,82,7E,02,02,00,00, 

58,60,40,40,40,00,00,00,7E,47A 

360 dAtA 80,7C,02,FC,00,20,20,70,20,20,20, 

18,00,00,00,42,42,42,42,3E,468 

370 DATA 00,00,00,00,82,44,28,10,00,00,00, 

82,82,92,AA,44,00,00,00,44,3C6 

380 DATA 28,10,28,44,00,00,00,82,44,28,10, 

20,40,00,00,7C,08,10,20,7C,332 

390 DATA 00,00,84,78,04,7C,84,7C,00,00,82, 

7C,82,82,82,7C,00,00,00,42,5BE 

400 dAtA 00,42,42,3E,00,3C,42,42,5C,42,42, 

5C,40,00,00,F8,08,E8,28,28,536 

410 DATA 28,C5,E5,1A,00,00,77,13,23,OD,20, 

F7,E1,CD,B6,8D,C1,10,EE,C9,936 ^ 

420 DATA 1A,D5,F5,E5,CB,BF,FE,20,28,OB,CD, 

AA,8D,E1,E5,01,01,08,CD,4D,A92 

430 DATA 8D,E1,23,F1,D1,13,CB,7F,28,E2,C9, 

E5,E5,CD,AA,8D,01,01,08,E1,B3C 

440 DATA CD,4D,8D,El,23,09,21,00,75,46,48, 

23,E5,CD,3a,BC,El,AF,46,48,97F 

450 DATA 23,E5,FS,CD,32,BC,F1,E1,3C,FE,02, 

20,Fl,C9,6F,26,00,29,29,29,980 

460 dAtA 11,4D,89,19,EB,C9,7C,C6,08,67,D0, 

C5,Ol,5O,C0,09,Cl,C9,7C,D6,9F0 

470 DATA 08,67,E6,38,FE,38,C0,7C,C6,40,67, 

7D,D6,50,6F,D0,7C,25,E6,07,9DC 

480 DATA C0,7C,C6,08,67,C9,0l,12,7E,18,03, 

01,77,1A,21,4F,8D,70,23,23,62B 

490 DATA 23,71,C9,CD,BA,98,CD,F2,A0,3A,78, 

78,CB,9F,32,78,78,3A,79,78,ABC 

500 dAtA FD,21,C8,78,CB,5F,20,04,FD,21,D2, 

78,FD,6E,00,FD,66,01,22,51,956 

510 DATA 8E,FD,6E,02,FD,66,03,22,6A,8E,FD, 

7E,04,32,64,8E,FD,7E,05,32,800 

520 dAtA 5F,8E,FD,6E,06,FD,66,07,22,91,8E, 

FD,6E,08,FD,66,09,22,AE,8E,946 

530 DATA 3E,1B,CD,C6,8E,3E,33,CD,C6,8E,3E, 

15,CD,C6,8E,3E,0D,CD,C6,8E,9EC 

540 DATA 11,00,00,D5,3E,1B,CD,C6,8E,3E,4C, 

CD,C6,8E,3E,00,CD,C6,6E,3E,8A8 

550 DATA 03,CD,C6,8E,D1,21,00,00,06,07,AF, 

E5,D5,C5,F5,CD,FO,BB,A7,C1,B26 

560 DATA 78,28,02,CB,F7,07,CI,Dl,13,El,10, 

EB,07,D5,E5,CD,C6,8E,CD,C6,B61 

570 DATA 8E,E1 ,23,E5,11,80,01,CD,C0,8E,38 , 

09,El,Dl,06,07,IB,10,FD,18,864 

580 DATA CB,3E,0D,CD,C6,8E,3E,0A,CD,C6,8E, 

El,Dl,21,80,02,CD,CO,8E,38,A48 

590 DATA 9E,3A,79,78,CB,AF,32,79,78,C3,D0, 

95,7A,BC,C0,7B,BD,C9,F5,CD,C47 

600 DATA 2B,BD,C1,78,3O,F0,C9,CD,F2,AO,DD, 

21,56,77,CD,DE,8D,CD,FA,A0,CDB 

610 DATA CD,E3,8D,CD,80,AO,AF,32,6B,78,21, 

B8,D8,22,6C,78,OE,C1,1E,00,992 


4260] 

3561 

17061 

5540] 

[ 110 ] 

[392ÄJ 

[2934] 

[3426] 

[3633] 

[4639] 

[3043] 

[3339] 

[2270] 

[3194] 

[2675] 

[3212] 

[3158] 

[3597] 

[2742] 

[3431] 

[3125] 

[3517] 

[4065] 

[2812] 

[4266] 

[3750] 

[3199] 

[3305] 

[2512] 

[3613] 

[4740] 

[3237] 

[2997] 

[2828] 

[3474] 

[3213] 

[4764] 
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Listing—] 


620 DATA 53,C5,05,21,00,46, DF, 71, 78, CD,OD, [2735] 
8F,D1,C1,0C,79,FE,C5,20,ED,A6C 

630 DATA CD,18,BB,CD,FA,AO,C3,DO,95,ED,5B, [3460] 
6C,78,21,00,46,06,10,C5,D5,A72 

640 DATA E5,7E,A7,20,5B,01,0C,0O,09,7E,A7, [2720] 
20,53,2B,CB,PE,2B,2B,2B,CB,773 

650 DATA FE,E1,D1,D5,E5,23,EB,E5,CD,60,8D, [2959] 
El,01,08,00,09,E5,D5,3E,2E,a30 

660 DATA CD,7F,SD,Dl,El,23,CD,60,8D,El,01, [30001 
20,00,09,Dl,E5,21,50,00,19,883 ' ' <■ J 

670 DATA 22,6C,78,3A,6B,78,3C,32,6B,78,FE, [4133] 
OC,20,10,AF,32,68,78, CD, 18,757 

680 DATA BB,CD,80,8F,21,B8,D8,22,6C,78,D1, [3278] 
EB,C1,10,9F,C9,E1,01,20,00,A45 

690 DATA 09,D1,18,F4,21,B8,D8,06,0C,C5,E5, [3512] 
11,B9,75,CD,60,8D,E1,11,50,9BE 

700 DATA 00,19,C1,10,FO,C9,3A,79,78,CB,F7, [2674] 

32.79.78, CD,F2,A0,CD,C9,9a,B40 

710 DATA C3,7C,9E,O6,OC,C5,D5,O6,03,OE,O8, [3814] 
CB , 7 E,2 8 , OC,C5 , D5 , E5 , EB , 3E , 8CD 

720 DATA 22,CD,7F,8D,E1,D1,C1,13,CB,06,0D, [3641] 
20,EA,23,10,E5,D1,EB,01,50,98E 

730 DATA 00,09,EB,C1,10,D7,C9,3A,79,78,CB, [4015] 
FF,18,CI,DD,21,SD,77,CD,DE,ABO 

740 DATA 8D,CD,FA,A0,CD,E3,8D,CD,80,A0,3A, [3855] 

79.78, CB,77,20,0F,2A,60,78,ABC 

750 DATA E5,CD,Fl,91,El,11,5S, 08, 19, CD, Fl, [3757] 
91,2A,60,78,E5,ll,EF,Cl,CD,B69 

760 DATA A7,8F,El,ll,5E,08,19,ll,0A,C2,CD, [3396] 
A7,8P,CD,96,91,21,9E,F1,01,92C 

770 DATA 62,18,C5,CD,B5,91,21,B9,F1,C1,CD, [3602] 
B5,91,21,08,F6,CD,B2,91,21,B41 

780 DATA 25,F6,CD,B2,91,21,00,00,22,E3,91, [3638] 
21,56,Fl,CD,DD,91,21,71,Fl,A08 

790 DATA CD,DD,91,21,3C,3C,22,E3,91,21,B6, [3764] 
DD,CD,DD,91,21,Dl,DD,CD,DD,BD2 

800 DATA 91,C3,5F,91,CD,78,90,CD,09,BB,06, [3397] 
07,21,12,79,CD,29,AO,18,F3,904 

810 DATA 11,E3,73,2A,67,78,01,01,04,C3,4D, [2984] 
8D,CD,DE,8D,2A,67,78,11,E3,848 

820 DATA 73,01,01,04,C5,E5,CD,4D,8D,CD,E3, [3634] 
8D,E1,C1 , 11,5A,78,C3,4D,8D,A29 

830 DATA CD,6C,90,3A,6A,78,2A,67,78,30,11, [2951] 
50,00,ED,52,A7,20,06,3E,OC,6E2 

840 DATA 11,CO,03,19,32,6A,78,22, 67, 78,18, [2983] 
A8,CD,6C,90,3A,6A,78,2A,67,738 

850 DATA 78,3C,11,50,00,19,FE,0D,20,E6,3E, [3797] 
01,11,CO,03,ED,52,18,DD,CD,753 

860 DATA 6C,90,3A,69,78,2A,67,78,2B,3D,20, [3099] 
06,3E, 18,11,18,00,19,32,69,4E1 

870 DATA 78,22,67,78,C3,5C, 90, CD,6C,90, 3A, [2891] 
69,78,2A,67,78,23,3C,FE,19,88B 

880 DATA 20,E8,3E,01,11,18,00,ED,52,18,DF, [3196] 
2A,5E,78,3A,6A,78,3D,47,87,6CD 

890 DATA 80,47,3A,69,78,3D,4F,CB,2P,CB,2F, [3984] 
CB,2F,80,5F,16,00,79,ED,44,7FB 

900 DATA 3D,E6,07,19,CB,27, CB, 27,CB, 27,16, [3024] 
46,B2,32,3B,91,CB,FF,32,57,878 

910 DÄTA 91,CB,B7,32,3F,91,CB,00, 28, 18, CB, [3197] 
00,3E,5C,2A,67,78,F5,CD,C2,912 

920 DATA 8D,CD,C2,aD,Fl,CD,7F,8D,CD,96,91, [3174] 
C3,5C,90,CB,00,3E,22,18,E6,S3F 

930 DATA CD,6C,90,3A,7A,78,EE,0l,32,7A,78, [3346] 
CB,47,2A,60,78,01,EF,D1,20,8FD 

940 DATA 07,01,OA,D2,11,5E,08,19,22,5E,78, [3478] 
21,01,01,22,69,78,ED,4 3,67,529 

950 DATA 78,C3,SC,90,CD,F2,A0,3A,79,78,E6, [3445] 
3F.32,79,78,C3,D0,95,ED,5B,B69 

960 DATA 6O,7e,21,59,C6,0l,03,0C,D5,C5,CD, [3609] 
4D,8D,CI,Dl , 21,5E , 08 , 19 , 11,7AC 

970 DÄTA 76,C6,EB,C3,4D,8D,0l,0E,03,E5,C5, [2222] 
CD,D2,91,C1,E1,CD,B6,8D;C5 'c2^ ' ' ' ' ^ ^ 

980 DATA 58,IC,16,00,E5,36,06,19,36,60,El, [4083] 
CD,B6.8D,OD,20,F3,C1,36,03,76S 

990 DÄTA 23,36,FF,23,10,FB,36,CO,C9,06,03, [3962] 
C5,E5,3E,21,3C,3C,CD,7F,aD,8A8 

1000 DATA Ei,11,08,00,19,CI,10,EF,C9,06,24 [3034] 
,36,00,23,10,FB,C9,22,1D,92^6C4 ' ' ' ^ J 

1010 DATA 22,6F,92,22,85,92,22,69,92,36,5F [2851] 
,23,06,07,36,5C,23,10,FB,11,60F 

1020 DATA 00,00,D5,CD,65,92,D1,D5,CD,06,BB [2384] 
,D1,21.AD,78,19,FE,0D,28,2E,95E 

i030 DÄTA FE,7F,28,30,FE,FC,20,04,E1,C3,F4 [3520] 
,92,FE,41,3a,E3,FE,5B,38,0A,B12 

1040 DATA FE,61,38,DB,FE,7B,30,D7,D6,20,1C [2829] 
,4F,7B,FE,O9,3e,03,lD,18,CB,9l6 

1050 DÄTA 71,23,36,5F,18,C0,7B,A7,20,18,18 [2814] 
,BF,7B,A7,28,BB,2B,36,5F,23,71A 

1060 DATA 36,5C,ID,18,AD,21,OE,Fl,11,AD,78 [2657] 
.C3,60,8D,21,AD,78,06,08,OE,6DC 

1070 DÄTA 20,ll,5C,5F,7E,BB,20,01,71,BA,20 [3272] 

,01,71,23,10,F4,21,AD,78,11,681 

1080 DATA 08,00,i9,36,2E,C3,65,92,CD,F2,AO [3836] 
,DD,21.64,77,CD,DE,8D,CD,0E,98A 

1090 DÄTA Al,CD,E3,8D,CD,BA,98,CD,DE,8D,CD [4682] 
,FA,AO,CD,E3,8D,CD,80,AO,11,DD7 

1100 DATA 8D,75,CD,90,94,21,08,Fl,11,40,76 [2381] 
,CD,60,8D,21,96,78,CD,F9,91,A21 

1110 DATA DD,E5,21,A8,C1,11,46,76,CD,60,8D [3451] 
,21,F6,C9,11,53,76,CD,60,8D,A49 

1120 DATA 06,OC,ll,00,60,21,96,7a,CD,8C,BC [3728] 
,11,CO,3A,21,00,02,01,00,00,4F6 


1130 DATA CD,98,BC,CD,eF,BC,DD,El,CD,F2,A0 [2690] 
,C3,D0,95,CD,F2,A0 ;dd,21;64|e3^’ ' ' ' J 

1140 DATA 77,CD,DE,8D,CD,FA,A0,CD,E3,8D,CD [2764] 
,80,A0,11,7A,75,CD,9D,94,21;C5F ' ' ' ^ ^ 

1150 DATA 08, Fl, 11,40, 76, CD,60,80,21,96, 78 [3279] 
,CD,F9,91,DD,E5,21,96,78,11,A02 

1160 DATA A2,78,Ol,08, 00, ED, BO,21, 9P,78,11 [2250] 
,AA, 78, Ol,03,00, ED,BO,21, AC,799 

1170 DÄTA 78, CB,BE,CD, 73,93,21, A8,C1,11, 46 [3528] 
,76,CD,60,8D,21,F8,C9;ii;87'a5F ' ' ' ^ J 

1180 DATA 76,CD, 60, 8D,06, OC,11,00,60, 21,96 [2856] 
,78,CD,77,BC,21,00, 02,CD,83, 755 

1190 DATA BC,CD,7A,BC,DD,E1,CD,F2,A0,CD,0E [2366] 
,A1,C3,D3,95,0E,C1,1E;00,53'bC^ ' ' ' J 

1200 DATA C5, 05,21,00,46, DF, 71,78, CD,A4, 93 [3132] 
,D1,C1,0C,79,FE,C5,20,ED,E1,B95 ' ' i J 

1210 DÄTA 21,A8,C1,11,CD,76,CD,60,8D,21,F8 [5151] 
,C9,11,D5,76,CD,60,8D,CD,18,A75 

1220 DATA BB,C3,F2,92,21,00,46,11,A2,78,06 [2715] 
.10.C5p5,E5,7E,A7,20,ll,23,8A2 ' ' • ^ J 

1230 DÄTA 06,0B,1A,BE,20,0A,23,13,10,F8,06 [2299] 
,06,E1,10,FD,C9,E1,D1,01,20,6E7 

1240 DATA 00,09,C1,10,DF,C9,CD,F2,AO,DD,21 [3451] 
,64,77,CD,DB,8D,CD,FA,A0,CD,C26 > v > 

1250 DATA E3,8D,CD,80,A0,11,B3,75,CD,9D,94 [4840] 
,21,08,F1,11,40,76,CD,60,8D,A2^' ' ' ' ^ ^ 

1260 DATA 21,AD,78,CD,F9,91,DD,E5,21,A8,C1 [3008] 
,11,46,76,CD,60,8D,21,F8,C9,B52 

1270 DÄTA 11, 99,76, CD,60,8D, 06,OC,11, 00, 60 [3378] 
, 21, AD,78,CD, 8C,BC,21,13,78,767 ^ 

1280 DATA 11,46,OP,01, 00, 00, CD,98, BC, CD,8P [4426] 
.BC,C3,F2,92,CD,F2,A0,DD,21,A44 ’ ' ' ^ 

64,77,CD,DE,8D,CD,FA,A0,CD,E3,8D [2073] 
,CD,8O,A0,ll,2D,76,CD,9D,94,C56 ' ' ' ‘ ' 

1300 DATA 21,08, Fl,11,40,76,CD,60,80,21, AD [3615] 
,78,CD,F9,91,DD,E5,21,AD,78,A46 ' ' ' ^ J 

1310 DATA 11, A2,78, 01,08,00,ED,BO,21, B6,78 [3431] 
,11,AA,78,01,03,00,ED,B0'21 715 ' ' ' ^ J 

1320 DÄTA AC, 78, CB, BE, CD,73,93,21,A8, CI,11 [2761] 
,46,76,CD,60,8D,21,F8,C9,11,A84 ' ’ ' ^ > 

1330 DÄTA B5,76,CD,60,8D,06,OC,11,00,60,21 [2310] 
,AD,78,CD,77,BC,21,13,7B,CD,82A 

1340 DATA 83,BC,CD,7A,BC,DD,E1,CD,F2,A0,C3 [3785] 
,D0,95,21,EE,FF,22,50,8D,21 CB5 ' ' ' ^ ^ 

B8,C8,CD,60,80,21,00,00, 22,50,80 [4358] 
,C9,CD,F2,A0,DD,21,6B,77,CD,A2F ' ' ' i J 

1360 DATA DE,8D,CD,FA,A0,CD,E3,8D,CD,80,A0 [3733] 
,CD,6A,95,21,BC,E8,Cd'98|95'd87 

1370 DATA 21,AC,C9,CD,98,95,FD,21,C1,78,FD [3419] 
,6E,00,FD,66,01,CD,AB,95,CD,B90 

1380 DATA 09,BB,FE,P3,28,12,FE,F2,28,42,FE [2839] 
,0D,28,58,FE,FC,20,ED,CD,F2,B9A ' ' ’ ^ ^ 

A0,C3,D0,95,CD,A7,95,FD,7E,02,FD [2803] 
,66,01,FD,6E,00,23,3C,FE,1B,A95 ' ’ • J 

1400 DATA 20,06,AF,11,IB,00, ED,52,FD,77,02 [3234] 
,FD,74,01,FD,75,00,47,4P,3A,76A 

C7,78,F5,C5,CD,32,BC,C1,F1,A7,CC [4210] 
,3a,BC,C3,DC,94,CD,A7,95,FD,E06 ' ' ' ^ ^ 

1420 DATA 7E,02,FD,66,01,FD,6E,00,2B,3D,PE [2575] 
,FF,20,D2,11,1B,00,3E,1A,19,743 ' ' ' ^ ^ 

1430 DATA 18,CA,CD,A7,95,3A,C7,78,BE,01,32 [3478] 
,C7,78,FD,21,Cl,78,A7,2e,04,9EE ' ' ' ‘ J 

1440 DATA FD,21,C4,78,CD,6Ä,95,PD,7E,02,PD [2406] 
,66,01,PD,6E,00,18,A6,21,EE,A3F ' ' ' ^ * 

1450 DATA FF,11,00,00,3A,C7,78,A7,20,01,EB [3422] 
,22,50,8D,D5,21,AD'E6hl>9'aD6 ' ' ' ^ J 

1460 DATA 76,CD,60,8D,El,22,50,8D,21,9D,Cg [2296] 
,11,EB,76,CD,60,8D,21,00,00,8B4 

1470 DATA 22,50,8D,C9,06,1B,E5,C5,3E,22,CD [2712] 
,7F,8D,C1,E1,23,10,P4,C9;3E 99C ' ' ' ^ J 

1480 DATA 5C,18,02,3E,23,FD,66,01,FD,6E,00 [3949] 
,C3,7F,8D,3E,02,CD,0E,BC,CD^819 ' ' ' ^ ^ 

1490 DATA 8E,8D,CD,3a,A0,CD,A2,9F,CD,EC,9P [2186] 
,CD,DE,8D,CD,0E,A1,CD,BA,98,CF9 

1500 DATA CD, C9,98,CD,09,BB, 06, OB,21,DC,78 [3207] 
,CD,29,A0,FE,28,38,F1,FE,2A,A52 

1510 DATA 28,ED,FE,3A,DA,96,A1,FE,40,CA,96 [4367] 
,Al.FE,5B,CA,96Ul,FE'6l'38lc8l: ' ' ' ^ ^ 

152Ö DATA DA,FS,7B,DA,96,A1,18,D3,3A,78,78 [3681] 
,CB,BF,32,78,78,CB,5F,28U9,ACÖ ' ' ' J 

1530 DATA 47, 3A, 79,78, CB,67,28,14, 3A, 77,78 [4624] 
,4F,3E,BC,CB,79,28,0A,CB,B9,84C 

1540 DATA 91,4F,3A,66,78,B9,18,05,3Ä,66,78 [2402] 
,FE,BA,30,A4,C5,3A,79,78,CB'92D ' ' ' ^ ^ 

1550 DATA 67,28,0E,CD,CF,9D,2A,74,78,CD,C2 [2957] 
,8D,22,74,78,18,0C,CD,CF;9D;973 ' ' ' ^ J 

1560 DATA 3A, 77,78, CD,13,9A,32, 77, 78, CD,CF [2625] 

,9D, Fl,CB,47, 3A,66,78, 28,07,947 ' ' ' ^ J 

1570 DATA FE,BA,D2,D3,95,18,05,FE,C6,D2,D3 [3619] 
,95,3C,21,C2,8D,18,5D,3A,78>e6 " ' ' ^ J 

1580 DATA 78,CB,5F,CB, BF, 32,78,78,28,45, 3A [3601] 
,79,7a,CB,67,28,12,3A,77,78,a7B 

1590 DATA 4F,3E,04,CB,79,20,08,81,4F,3A,66 [2980] 
,78,B9,18,05,3A, 66, 78>Ej04'6Di / / / i J 

1600 DATA DA,D3,95,3A,79,78,CB,67,28,0E,CD [4640] 
,CF,9D,2A,74,78,CD,B6,8D,22,A56 • ' ' J 

1610 DATA 74,78,18,0C,CD,CF,9D,3A,77,78,CD [3374] 
,2B,9A,32,77,78,CD,CF;9D;3A;996 I ' J 

1620 DÄTA 66,78,FE,04,DA,D3,95,3D,21,B6,8D [1959] 
,22,E4,96,22,EB,96,32,66,78,A12 

1630 DATA CD,BA,98,2A,63,78,3A,78,78,CB,47 [2559] 
,28,09,CB,C6,CD,C2,8d!cb'c6;ACF ' ' ' I ^ J 
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1640 DATA 18,O3,CD,C2,8D,22,63,78,CD,C9,90 [4346] 
,3A,78,78,CB,4F,CA,1E,97,3A,95F 

1650 DATA 66,78,FE,4F,30,10,FE,22,3B,OC,3A [3842] 

,65,78,FE,02,38,05,FE,4E,DA,849 

1660 DATA D3,95,CD,BA,98,CD,86,9F,CD,C9,9a [3122] 
,C3,D3,95,CB,6F,28,36,21,22,BAD 

1670 DATA 78,3A,66,78,FE,BE,3A,65,78,38,0C [3744] 
,BE,DA,CF,97,23,BE,D2,CF,97,ABE 

1680 DATA C3,03,95,23,23,BE,DA,CF,97,23,BE [3116] 
,D2,CF,97,3A,66,78,FE,B5,D2,C25 

1690 DATA D3,95,23,3A,66,78,BE,38,7A,C3,D3 [3818] 
,95,3A,66,78,FE,C0,DA,D3,95,B56 

1700 DATA 3A,65,78,FE,09,38,33,FE,0B,DA,D3 [3161] 
,95,FE,15,DA,A7,97,FE,17,DA,AEE 

1710 DATA D3,95,FE,1E,38,3A,FE,20,DA,D3,95 [2433] 
,FE,29,38,3E,FE,2A,DA,D3,95,B5D 

1720 DATA FE,32,D2,D3,95,DD,21,4F,77,21,22 [3723] 
,78,CD,64,A0,C3,D3,95,DD,21,AE3 

1730 DATA 33,77,21,E0,77,CD,64,A0,C3,D3,95 [3171] 
,DD,2l,3A,77,21,F2,77,CD,64,A88 

1740 DATA A0,C3,D3,95,DD,21,41,77,21,01,78 [3927] 
,CD,64,A0,C3,D3,95,DD,21,48,A5D 

1750 DATA 77,21,16,78,CD,64,A0,C3,03,95,00 [3382] 
,CD,BA,98,CD,F2,A0,CD,C9,98,BCE 

1760 DATA C3,D3,95,3A,7B,78,CB,5F,CB,BF,32 [5078] 
,78,7a,28,45,3A,79,78,CB,67,9F5 

1770 DATA 28,14,3A,76,78,4F,3E,02,CB,79,28 [3329] 
,0A,CB,B9,ai,4F,3A,65,7a,B9,78D 

1780 DATA 18,05,3A,65,78,FE,02,DA,D3,95,3A [2927] 

,79,78,CB,67,28,OC,CD,CF,9D,940 

1790 DATA 2A,74,78,2B,22,74,78,18,0C,CD,CF [4101] 
,9D,3A.76,78,CD,13,9Ä,32,76,7F6 

1800 DATA 78,CD,CF,9D,3A,65,78,FE,02,DA,D3 [2887] 

,95,30,32,65,78,CD,BA,98,2A,A9F 

1810 DATA 63,78,3A,78,78,CB,47,28,02,36,FF [3638] 
,2B,C3,ED,96,3A,78,78,CB,5F,93B 

1820 DATA CB,BF,32,78,78,28,43,3A,79,78,CB [4451] 
,67,28,12,3A,76,78,4F,3E,4F,7B2 

1830 DATA CB,79,20,08,91,4F,3A,65,78,B9,18 [2442] 
,05,3A,65,78,FE,4F,D2,D3,95,8D7 

1840 DATA 3A,79,78,CB,67,28,0C,CD,CF,9D,2A [3587] 

,74,78,23,22,74,78,18,OC,CD,802 

1850 DATA CF,9D,3A,76,78,CD,2B,9A,32,76,78 [2835] 
,CD,CP,9D,3A,65,78,FE,4F,D2,AB5 

1860 dAtA D3,95,3C,32,65,78,CD,BA,98,2A,63 [3890] 
,78,23,3A,78,78,CB,47,CA,ED,9ED 

1870 DATA 96,36,FF,C3,ED,96,11,00,70,2A,63 [3720] 
,7a,01,01,04,CD,19,BD,C3,4D,850 

1880 DATA 8D,CD,DS,8D,2A,63,78,11,00,70,01 [4104] 
,01,04,C5,E5,CD,4D,aD,CD,E3,952 

1890 DATA 8D,E1,C1,11,56,78,C3,4D,8D,11,EE [3325] 
,73,2A,F2,73,10,D3,CD,DE,8D,ACF 

1900 DATA 2A,F2,73,11,EE,73,18,DA,3A,78,78 [3439] 
,CB,4F,20,2E,CB,6F,C2,62,9A,97D 

1910 DATA CB,5F,C2,D3,95,CB,67,28,08,CB,A7 [3108] 
,32,78,78,C3,D3,95,3A,66,78,A8D 

1920 DATA FE,BC,D2,D3,95,3A,7e,78,EE,01,CB [3221] 
,BF,32,78,7B,CD,B9,9F,C3,D3,C74 

1930 DATA 95,3A,66,78,FE,40,CA,12,97,FE,31 [3341] 
,CA,12,97,3A,78,70,CB,E7,32,AOE 

1940 dAtA 78,78,3A,66,78,FE,4O,30,0C,21,4D [3429] 
,79,FE,31,30,00,21,73,79,18,6F5 

1950 DATA 03,21,27,79,06,13,OE,02,3A,65,78 [3532] 
,OC,OC,OC,OC,B9,38,04,23,23,36F 

1960 DATA 10,F5,5E,23,56,ED,53,60,78,21,56 [2918] 
,7A,CD,C3,99,21,99,79,CD,C3,9D1 

1970 DATA 99,21,03,OC,11,21,00,3E,03,01,FD [4220] 
,0C,CD,F2,99,3E,02,32,2A,9C,5D6 

1980 dAtA 01,24,00,ED,43,5E,9C,11,C8,70,2Ä [3183] 
,60,70,ED,BO,AF,32,62,78,CD,8BF 

1990 DATA 8E,9F,3A,79,78,FE,40,D2,DA,8F,3A [2688] 
,65,78,FE,4A,DA,80,9B,2A,63,AB2 

2000 DATA 78,2B,22,63,78,3D,32,65,78,10,EE [3521] 
,A7,ED,52,7C,B5,C0,E1,3A,79,95D 

2010 DATA 78,FE,40,D2,D3,95,3A,78,78,CB,D7 [3630] 
,32,78,78,21,07,1B,11,B6,00,8E8 

2020 DATA 3E,07,01,00,IB,CD,F2,99,3E,06,32 [2965] 
,2A,9C,01,BD,00,18,A1,22,7B,609 

2030 DATA 9B,22,8Ä,9B,22,4A,9C,ED,53,DE,9B [3825] 
,32,E1,9B,32,0F,9C,CB,27,32,952 

2040 DATA ED,9B,78,32,OC,9C,79,32,F3,9B,C9 [4204] 
,FE,01,20,03,3E,01,C9,CB,7F,9D0 

2050 DATA 28,02,3D,C9,3C,FE,80,C0,El,CD,CF [4111] 
,9D,C3,D3,9S,FE,01,20,03,3E,A4F 

2060 dAtA 81,C9,CB,7F,28,0A,3C,A7,C0,E1,CD [4187] 
,CF,9D,C3,D3,95,3D,C9,3A,78,B66 

2070 DATA 78,CB,BF,32,78,78,CB,4F,C2,12,97 [2992] 
,CB,6F,C2,CF,97,CB,67,CA,D3,BDA 

i^oao dAtA 95,CD,71,9B,CD,C9,98,C3,03,95,21 [2978] 
,22,78,11,05,00,19,3A,66,78,8C9 

2090 DATA 46,23,BE,23,38,07,23,23,10,F8,C3 [3227] 
,D3,95,5E,23,56,EB,E9,21,29,7F7 

hoo DATA 75,36,00,21,35,75,36,00,21,41,75 [4475] 
,36,FF,CD,80,A0,3A,79,7a,E6,7B6 

2110 DATA F8,CB,CF,32,79,78,C3,DO,95,21,29 [3523] 
, 75,36,00,21,35,75,36,FF,21,8F3 

2120 DATA 41,75,36,00,CD,80,AO,3A,79,78,E6 [3712] 
,F8,CB,D7,32,79,78,C3,D0,95,ACF 

2130 DATA 21,29,75,36,FF,21,35,75,36,00,21 [3312] 
,41,75,36,00,CD,80,A0,3A,79,6A2 

k40 DATA 78,E6,F8,CB,C7,32,79,78,C3,D0,95 [2545] 
,3A,CF,75,EE,FF,32,CF,75,CD,CEl 


2150 DATA 80,AO,3A,79,78,EE,08,32,79,78,C3 [3864] 

,DO,95,CD,09,BB,06,07,21,FD,948 

heO DATA 78,CD,29,A0,18,F3,3A,66,78,FE,BC [3008] 
,30,EC,3C,32,66,78,CD,71,9B,A2C 

2170 DATA 2A,63,78,CD,C2,80,22,63,78,C3,80 [3282] 
,9B,3A,78,78,CB,57,3A,66,78,960 

2180 DATA 28,04,FE,ID,18,02,FE,OE,38,C7,3D [2271] 
,32,66,78,CD,71,9B,2A,63,7B,797 

2190 DATA CD,B6,8D,18,D9,3A,78,78,CB,57,3A [3328] 

,65,78,28,04,FE,49,18,02,FE,8EF 

2200 DATA 4D,D2,Fl,9A,3C,32,65,78,CD,71,9B [3315] 

,2A,63,78,23,22,63,78,C3,80,936 

2210 DATA 9B,3A,65,78,FE,03,38,80,30,32,65 [4139] 
,78,CD,71,9B,2A,63,78,2B,18,7E5 

2220 DATA E6,CD,19,BD,11,05,70,2A,63,78,01 [2893] 
,03,0C,C3,4D,8D,CD,DE,8D,2A,823 

2230 DATA 63,78,11,05,70,01,03,OC,C5,E5,CD [2715] 
,4D,eD,CD,E3,8D,El,Cl,ll,C8,97A 

2240 DATA 70,CD,4D,8D,C3,FL,9A,3A,78,78,E6 [2695] 
,EB,32,78,78,CD,71,9B,CD,DE,C06 

2250 DATA 8D,CD,OE,Al,CD,BA,98,2A,63,78,11 [2434] 
,C8,70,ED,4B,8A,9B,CD,4D,8D,A7A 

^60 DATA C3,D0,95,3A,62,78,3C,FE,04,20,01 [2623] 

,97,32,62,78,A7,28,26,FE,01,832 

2270 DATA 28,2A,FE,02,28,2B,CD,52,9C,11,21 [4112] 
,00,06,03,7E,E5,19,4E,77,E1,6BD 

2280 DATA 71,23,10,F6,06,06,IB,10,FD,7B,FE [2962] 
,FD,20,EA,18,4B,2A,60,78,CD,880 

2290 DATA 59,9C,18,43,CD,52,9C,18,3E,2A,60 [3252] 

,78,CD,59,9C,11,OC,00,06,03,646 

2300 DATA CS,AF,06,08,4E,CB,41,28,02,CB,FF [2571] 
,Ca,01,CB,0F,10,F4,77,23,C1,8D5 

2310 DATA 10,EA,E5,2B,05,11,02,00,7E,E5,A7 [3874] 
,ED,52,4E,77,E1,71,1B,1B,2B,8B3 

2320 DATA 7A,B3,20,FO,D1,El,IB,7A,B3,20,CB [3283] 
,2A,63,78,11,C8,70,01,03,0C,880 

2330 DATA CD,4D,8D,C3,Fl,9A,2A,60,78,11,5E [2638] 
,08,19,11,C8,70,D5,01,24,00,7CA 

2340 DATA ED,B0,El,C9,3A,78,78,CB,5F,C2,D3 [3099] 
,95,CB,BF,32,78,7a,CD,BA,98,C90 

2350 DATA 2A,63,78,CD,8E,9C,E5,CD,C2,8D,CD [3788] 
,8E,9C,E1,CD,B6,6D,CD,8E,9C,CDC 

2360 DATA CD,C9,98,C3,D3,95,7E,F6,07,77,23 [4415] 
,7E,F6,E0,77,2B,C9,C9,CD,F2,CB5 

^70 DATA A0'C3,D0,95,3A,66,78,FE,BC,D2,D3 [4742] 
,95,3A,78,78,CB,5F,20,3D,CB,B50 

2380 DATA 6F,C2,D3,95,CB,4F,C2,D3,95,CB,77 [3904] 

,C2,D3,95,CB,DF,E6,7E,32,78,001 

2390 DATA 78,CD,BA,98,CD,DE,8D,C0,OE,Al,2A [ 2221 ] 

,63,78,22,74,78,2A,65,78,22,987 

2400 DATA FO,73,21,81,81,22,76,78,CD,CF,9D [3534] 
,CD,B9,9F,CD,DB,9P,C3,D3,95,C66 

UlO DATA 3A,79,78,CB,57,20,3C,CB,47,20,38 [2921] 
,CD,FD,9C,C3,D0,95,CD,BA,98,AC0 

2420 DATA CD,lA,AO,2A,74,78,3A,77,78,47,CB [3572] 
,B8,04,04,3A,76,78,4F,CB,B9,893 

2430 DATA E5,36,00,00,OD,20,FA,E1,CD,00,00 [3706] 
,10,ED,3A,78,78,CB,9F,32,78,82B 

2440 DATA 78,CD,DB,9F,C3,lA,AO,EE,10,32,79 [2614] 
,78,CB,67,28,2E,CD,CF,9D,CD,AEB 

2450 DATA BA, 98 , CD,lA,AO , ED,5B , 63 , 78 , ED,53 [2682] 
,E8,73,ED,4B,65,78,ED,43,EC,BC8 

2460 DATA 73,2A,74,78,22,63,78,22,EA,73,11 [3645] 
,00,46,CD,B2,9D,CD,1A,A0,C3,8C2 

2470 DATA DO,95,3A,78,78,CB,9F,32,78,78,CD [3808] 
,DB,9F,ED,5B,74,78,D5,2A,EA,B7F 

2400 DATA 73,22,74,78,CD,CF,9D,CD,BA,98,3A [3144] 
,79,78,CB,47,C4,FD,9C,E1,22,B76 

2490 DATA 74,78,11,00,46,01,lA,77,ED,43,C1 [3439] 
,9D,CD,B2,9D,21,7E,i2,22,Cl,813 

2500 DATA 9D,2A,E8,73,22,63,78,ED,4B,EC,73 [3237] 
,ED,43,65,7B,C3,D0,95,3A,77,A9C 

2510 DATA 76,47,CB,B8,04,04,3A,76,78,4F,CB [2965] 
,B9,E5,7E,12,13,00,0D,20,F9,7F3 

2520 DATA El,CD,00,00,10,EC,C9,CD,BA,98,2A [3462] 
,74,78,CD,4B,9E,3A,77,78,CB,A52 

2530 DATA 7F,11,B6,8D,20,03,11,C2,8D,ED,53 [1397] 
,11,9E,ED,53,2C,9E,ED,53,23,8B2 

2540 DATA 9E,ED,53,3C,9E,ED,53,CA,9D,ED,53 [3475] 
,1D,9D,3A,77,78,47,CB,B8,3A,A86 

2550 DATA 76,78,5F,1D,CB,BB,16,00,CB,7F,28 [3426] 
,1B,CD,00,00,E5,7E,EE,03,77,82B 

2560 DATA A7,ED,52,7E,EE,CO,77,El,10,EE,CD [3410] 
,00,00,CD,44,9E,C3,C9,98,CD,BD5 

2570 DATA 00,00,E5,7E,EE,CO,77,19,7E,EE,03 [3453] 
,77,E1,10,FO,CD,00,00,CD,44,946 

2580 DATA 9E,C3,C9,98,3A,76,78,EE,80,18,03 [3173] 
,3A,76,78,47,CB,78,3E,23,20,aA6 

2590 DATA 02,3E,2B,32,6B,9E,EE,08,32,6E,9E [3200] 
,32,17,9D,32,C4,9D,CB,B8,7E,854 

2600 DATA EE,FF,77,00,10,F9,00,C9,CD,F2,AO [2912] 
,CD,BA,98,CD,0E,A1,C3,D3,95,C5B 

2610 DATA 3A,78,78,CB,4F,C2,D3,95,CB,5F,C2 [3357] 
,D3,95,CB,6F,C2,D3,95,CB,7F,C70 

2620 DATA 28,05,3E,5C,C3,96,Al,CB,CF,CB,87 [4632] 
,32,7B,78,CD,BA,98,CD,DE,8D,B26 

^630 DATA CD,96,9F,CD,E3,8D,CD,B9,9F,21,01 [3478] 
,FD,0E,3B,CD,64,9F,21,42,78,A77 

2640 DATA 06,03,5E,23,56,23,EB,CD,62,9F,EB [1959] 
,10,F5,21,48,7a,06,07,5E,23,71B 

2650 DATA 56,23,EB,CD,70,9F,EB,10,F5,21,F1 [2131] 
,CC,36,00,21,F9,CC,36,00,21,981 
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Listing—i 


E1,ED,36,00,21,E9,ED,36,00,21,B1 

21,51,CD,06,OF,CD,39,9F,06,13,21 
,Fl,C5,CD,39,9F,21,EE,04,11,882 

99,79/06,02,C5,E5,01,07,1B,CD,4D 

.8D,El,0l,07,00,09,D5,E5hl'74B 

7B,78,01,01,1B,CD,4D,8D,E1,23,D1 

21/02,4E,22,65,78,C3,D0,95,C5,D5 

,E5,11.7B,78,01,01,0C,CD,4D,843 

0D/E1,23,D1,E5,O1 03,OC,CD,4D,8D 
,E1,23,23,23,C1,10,E3,D5,11,8E2 

7B,78,01,01,0C,CD,4D,8D,D1,C9,0E 
23,00,20,688 

o? A FA'36,FC,C9,0E,13,36,0C,23,36,00 
,23,36,00,23,36,00,23,36,00,4BC 

OD,20,EF,36,OC,C9,3A,79,7e,E6,3F 


,32,79.78,3A,78,78,B6,ED,32,8C9 
2750 DATA 78,78,21,Bl,C4,11,00,50,01,4E,2E 


,C3,4D,8D,21,2E,78,06,05,C5,698 

5E,23,56,23,4E,23,E5,66,69,CD,60 
,8D,E1.23,C1,10,EE,3A,78,78,8C6 
2770 DATA CB,47,3E,4C,28,02,EE,16,21,4E,CO 
,C3,7F,8D,3A,78,7a,CB,77,3E,872 

4D,20,02,EE,ll,21,4A,C0,C3,7F,aD 
,3A,78,78,CB,5F,3E,4B;20 02 767 ' ' ' 

i|/17,21,46,CO,C3,7F,aD,21,50,CO 
,06,50,7E,EE,FF,77,23,10,F9,990 
2800 DATA 21,50,C8,06,BE,7E,EE,80,77,E5,11 
i4F,00,19,7E,EE,01,77,Ei,CD,950 
, B6,8D,10,ED,06,50,7E,EE,FF,77,23 

,10,F9.C9,21,50,C8,06,BE,7E,9E8 
2820 DATA EE,80,77,CD,B6,8D,10,F7,C9,BE,23 
,28,05,23,23,10,F8,C9,5E,23,96B 

6^6B/D1/E9,AF,32 78,78,3E,0A,32 
,79,78,3E,FF,32,41,75,32,CF,SED 

75/3E,0D,32,C3,78,AF,32,C6,78,21 

/0CaF9,22,C4,78,21,09,DA,22,7F6 

C1,78,21,01,1A,C3,3F,BB,3A,78,78 

,CB,6F,C4,FA,A0,22,23,97,22,8P2 

63,9A,CB,EF,32,7a,78,CD,DE,8D,CD 

.FA,A0,CD,E3,8D,DD,6E,00,DD,CDD 

66/01/E5,3E,3B,CD,7F,8D,CD,E5,A0 
,3E,7P,CD,7F,8D,El,11,50,00,908 

19/E5,DD,6E,04,DD,66,05,DD,46,03 
,5E,23,56,23,E3,C5,E5,D5 3E 955 ' ' ' ^ 

2890 DATA 61,CD,7F,8D,D1,lA 13,A7,28,07,01 
.EE,FF,ED,43,50,8D,CD,60,8d'9C3 
2900 DATA 11,00,00,BD,53,50,BD,3E,61,CD,7F 
/SD,El,11,50,00,19,CI,E3,Dl,876 

D5,10,CC,E1,3E,60,CD,7F,8D,CD,E5 
,A0,3E,2A,C3,7F,8D,DD,46,02 AB7 
2920 DATA C5,3E,5E,CD,7F,8D,CI,10,F7, C9.3A 
,78,78,CB,AF,32,78,78 DD 6EADC ' ' ' 

00«DD,66,01,DdUe;02,DD,46,06,0C 

02,21,50,00,01,50 BC, CD, 4D,8D,C3 
,C9,98,3A,7a,78,CB,4F,C2,D3,9F4 

95/CB,5F,C2,D3,95,CB,67,C2,D3,95 

70^CB,77,2O,O9,CD,BA,98,CD,DE,8D 
AR?A‘^^«d^'^°'BA'08'3A,65,78,AEC ' 

^nZ°n? ®^'26,00,29,29,29,3A,66,78,FE,BC 
/B2,D0,95,5F,16,00,iC,CB,23,798 

CB,12,EB,3A,78,78,CB,77,20,17,CB 

,F7/32/78^78/CD < CO/BB ,2h, 63/A24 

2990 DATA 78,22,F2,73,CD,ED,98,CD,CA,9F,C3 

AaaA^^ r 32,78,78,ES,D5 ,Do6 

3000 DATA CD,E5,98,D1,E1,CD,F6,BB,CD,CA,9F 

4C3aD0,95,47,3A,66,78,FE,BC,DF1 

S2,D3,95,FE,0F,DA,D3,95,3A,78,78 
,CB,4F,C2,D3,95,CB,6P,C2'D3'cC^ ° 

?f'CB,67,C2,D3,95,CB,5F,C2,D3,95 
,CB,7P,20,1A,CB,FF,32,78,78,BB^ ' 

?5'CD.BA,98,CD,DE,8D,CD,0E,A1,C1 

4Zh°Rii55'22,6F,78,AF,32,6E,Al8 

78,C5,|A,65,7a,PE,4F,30,46,CD,BA 

,98,2A,63,78,Fl,FE,61,38,02,9C5 

/78/3C/32/6E^ 76/2A^ 6P/78/11/A64 

08,00,19,22,6F,78,Dl,EB,01,01,08 
4R5A^Ri;i^'®°'CD,E3,8D,El,Fl,90B 

E5,CD,7P,aD,El,23,22,63,78,3A,65 

4Z24^Ri^^'®5'^®'C3,D0,95,Cl,A0Ä 

ZS'0®'70'FE'17,DA,D3,95,D6,08,32 

,66,78,C5,3E,02,32,65,78,CD,93E 

BA,98,2A,63,78,23,23,23,22,63,78 
,18,9E,3A,78,78,CB,7F,28,50,75F 
^12°.RAJA 3A,6E,78,A7,28,4A,3D,32,6E,78,ED 
,5B,6F,78,D5,CD,aA,98,Dl,2A,9AC 
3n0 DATA 6 3,78,3A,65,78,FE,0 3,30,14,3E,4F 
4 ?Za®R'’®'^A,66,78,C6,O0,FE,7B7 

BC,30,2A,32,66,78,2B-2B,2B,2B,22 
,63,78,3A,65,78,3D,32,65,78 63^ ' 

3130 DATA 01,01,Oa,D5,CD,4D,aD,El,A7,11.08 
,00,ED,52,22,6F;78;C3 ;do;95;89^ ' ' ' 

11/B9,78,18,B9,3E,02,32,65,78,C3 
,DO,95,00,00,00,00,00,00,00,58A 


[2832] 
[4583] 
[3805] 
[3506] 
[2597] 
[2790] 
[3901] 
[2642] 
[4023] 
[2868] 
[3690] 
[4231] 
[2867] 
[2352] 
[3849] 
[3406] 
[2385] 
[4088] 
[2795] 
[3476] 
[3883] 
[4458] 
[3955] 
[2313] 
[2500] 
[4015] 
[3498] 
[2895] 
[2781] 
[3383] 
[4087] 
[3509] 
[3073] 
[2983] 
[4120] 
[3962] 
[2896] 
[3489] 
[2492] 
[2753] 
[1862] 
[2939] 
[5309] 
[2674] 
[2646] 
[3823] 
[2577] 
[3257] 
[3391] 


Geldgeschäfte 

System: 

Datenträger: 

Info: 


CPC 464/664/6128 
Kassette/Diskette 

Kassetlenanpassung im Text be¬ 
schrieben 


10 

20 

30 

40 

50 

60 


+++++++++++++++ 

+ Kontofuehrung auf dem CPC + 

+ + 

+ (wr) by Juergen Gropp + 

+ (c) by DMV + 

++++++++++++++++++++ 4 .++^+^+^^.^.^.^^^.^ 

70 BORDER 14:INK 1,1:INK 0,14:INK 2,5;INK 
3/20 

80 MODE 1 

90 KEY 12,"goto 300"+CHRS(13) 

100 SYMBOL AFTER 90 

HO SYMBOL 125,102,0,102,102,102,102,62,0: 
'ue 

120 SYMBOL 124,102,0,60,102,102,102,60,0:’ 
oe 

130 SYMBOL 123,108,0,120,12,124,204,118,0; 
' ae 

140 SYMBOL 126,60,102,102,108,102,102,108, 
96:'sz 

150 SYMBOL 92,198,56,108,198,196,108,56:'O 
E 

160 SYMBOL 93,102,0,102,102,102,102,60:'UE 
170 SYMBOL 91,102,24,60,102,126,102,102:'A 

E 

180 SYMBOL 208,255,129,129,129,129,129,129 
,255 

190 SYMBOL 209,0,255 

200 SYMBOL 250,1,3,6,140,216,112,32 

210 KEY DEF 17,1,125,93:KEY DEF 19,1,123,9 

1:KEY DEF 22,1,124,92:KEY DEF 24,1,126,94 

220 |TAPE 

230 OPENOUT"JDUMMY":MEM0RY HIMEM-1:CLOSEOU 
T 

240 |DISC 

250 GOSUB 260:GOTO 300 

260 DIM r$(60,2),dS(60,2),vS(60,2,3),soll( 
60 , 2 ),haben(6 0 , 2 ),saldo( 60 , 2 ) 

270^DIM kS(2,2,12),wS(2,2,12),s{2,2,12),a( 

280 DIM b$(18,5),n${2,2) 

290 r$="######.##":RETÜRN 
300 GOSUB 400 
310 GOTO 810 

320 FOR i=0 TO 24 STEP 2:PLOT y(l)+i,y:DRA 
WR 0,-28:NEXT 

330 PLOTR 0,28:DRAWR 260,0:DRAWR 0,-28:DRA 

WR -2a4,0:DRAWR 0,28 

340 DRAWR 250,0:DRAWR 0,-28:RETüRN 

350 WHILE INKEyS<>"":WEND:RETURN 

360 PRINT#8,CHRS(9);:RSTURN 

370 ' 

380 'Menueaufbau 
390 ' 

400 MODE 1 
410 PEN 2 

420 PRINT CHRS(22)+CHRS(1); 

430 WINDOW#1,2,39,20,24:WINDOW#2,2,39,2.4- 
WINDOW#3,2,39,6,24:WINDOW#4,2,39,6,18 

440 LOCATE 1,1 

450 PRINT STRINGS(40,233); 

460 LOCATE 1,25:PRINT STRINGS(40,233) : 

470 FOR i=2 TO 24 ' / // 

480 LOCATE l,i:PRINT CHRS(233); 

490 LOCATE 40,i:PRINT CHRS(233): 

500 NEXT i:PEN 1 

510 LOCATE 1,1:PRINT STRINGS(40,208}? 

520 LOCATE 1,25:PRINT STRINGS(40,208); 

530 FOR i=2 TO 24 \ > l> 

540 LOCATE l,i:PRINT CHRS(208); 

550 LOCATE 40,1:PRINT CKRS(2O0); 

560 NEXT 1 

570 PEN 2:LOCATE 1,5:PRINT STRINGS{40,233) 
;:PEN l:LOCATE 1,5:PRINT STRINGS(40,208); 
580 PRINT CHRS(22)+CHRS(1);:PEN 2;LOCATE 1 
,19:PRINT STRING$(40,233);:PEN l:LOCATE 1, 
19:PRINT STRINGS(40,208); 


[1712] 

[1864] 

[196] 

[860] 

[463] 

[1712] 

[3073] 

[506] 

[1696] 

[1214] 

[3025] 

[2231] 

[2622] 

[3294] 

[2360] 

[2167] 

[2847] 

[2129] 

[1171] 

[1977] 

[4480] 

[350] 

[2903] 

[839] 

[1323] 

[2604] 

[2185] 

[982] 

[1562] 

[964] 

[306] 

[3041] 

[2320] 

[1547] 

[2193] 

[1774] 

[117] 

[1661] 

[117] 

[506] 

[548] 

[1702] 

[3513] 

[611] 

[1685] 

[1841] 

[601] 

[1573] 

[1975] 

[316] 

[1447] 

[1781] 

[601] 

[1498] 

[1756] 

[375] 

[4362] 

[5153] 
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^Listing 


590 PRINT CHR$(22)+CHR$(0);:RETüRN [2056] 

600 ' [117] 

610 'Konto [395] 

620 ' [117] 

630 MODE 2:TAG [964] 

640 MOVE 227,394:PRINT"K 0 N T 0 ";ic; [1744] 

650 MOVE 355,394:PRINT"Seite"; [1613] 

660 MOVE 4,374 :PRlNT’’Konto-Nr. : ";nS(l,k) [2101] 

670 MOVE 216,374:PRINT"Inhaber : ";n$(2,k) [2663] 

680 MOVE 570,374:PRINT d$(0,0); [1961] 

690 MOVE 4,354:PRlNT"Nr R Datum Ver [5908] 
Wendung Soll 

Haben Saldo"; 

700 TAGOFF [1066] 


710 PLOT 0,379:DRAWR 640,0:PLOT 0,24:DRAWR [3779] 
639,0:DRAWR 0,355:DRAWR-639,0:DRAWR 0,-35 
5 

720 PLOT 0,359:DRAWR 639,0:PLOT 639,339:DR [4967] 
AWR -639,0:PLOT 0,88:DRAWR 639,0 
730 PLOT 26,359:DRAWR 0,-271 [763] 

740 PLOT 50,359:DRAWR 0,-271:MOVER 88,0:DR [5796] 
AWR 0,271:MOVE 170,339:DRAWR 0,-251:PLOT 2 
02,339:DRAWR 0,-251 

750 MOVE 393,359;DRAWR 0,-271:MOVE 475,359 [3077] 
'.DRAWR 0,-271:MOVE 555,359 :DRAWR 0,-271 
760 PLOT 219,379:DRAWR 0,20:DRAWR 208,0:DR [3249] 
AWR 0,-20:RETURN 


770 ’ [117] 

780 ’Menue [1057] 

790 ’ [117] 

800 CLS#1 [373] 

810 PEN 3:LOCATE 17,2:PRINT STRINGS(7) [2391 ] 
820 PAPER 3;PEN 2 [1144] 

830 LOCATE 17,3:PRINT" Menue " [1451] 

840 PEN 1:PAPER 0 [958] 

850 LOCATE 6,8:PRINT"Konto 1" [1461] 

860 y{l)=28:y=294:GOSUB 320 [1299] 

870 LOCATE 8,10:PRINT"Konto 2" [1851] 

880 y=262;GOSUB 320 [469] 

890 LOCATE 7,12:PRINT"Speichern" [2515] 

900 y=230:GOSUB 320 [715] 

910 LOCATE 9,14:PRINT"Laden" [1701] 

920 y»198:GOSUB 320 [774] 

930 LOCATE 8,16:PRINT"Drucken" [1991] 

940 y=166:GOSUa 320 [1298] 

950 LOCATE 27,8:PRINT"Katalog" [1884] 

960 y{l)=332:y=294:GOSUB 320 [1534] 

970 LOCATE 24,10:PRINT"Dauerauftr[ge" [2817] 

980 y=262:GOSUB 320 [469] 

990 LOCATE 24,12:PRINT"Kontonummern" [1501] 

1000 y=230:GOSÜB 320 [715] 

1010 LOCATE 24,14:PRINT "Konto-nr eing" [2259] 

1020 y=198:GOSUB 320 [774] 

1030 LOCATE 28,16:PRINT"Ende" [711] 

1040 y=166:GOSUB 320 [1298] 

1050 LOCATE 3,8:PRINT CHRS(24);"1" [1578] 

1060 LOCATE 3,10:PRINT"2" [1001] 

1070 LOCATE 3,12:PRINT"3" [1675] 

1080 LOCATE 3,14:PRINT"4" [1317] 

1090 LOCATE 3,16:PRINT"5" [1669] 

1100 LOCATE 22,8:PRINT"6" [1659] 

1110 LOCATE 22,10:PRINT"7" [1574] 

1120 LOCATE 22,12:PRINT''0’' [1898] 

1130 LOCATE 22,14:PRINT"9" [1892] 

1140 LOCATE 22,16:PRINT"0";CHRS(24); [1388] 

1150 IF d${0,0)<>""THEN 1180 [1046] 

1160 LOCATE e,21:PRINT"Bitte geben Sie das [4508] 


1170 LOCATE 7,23:INPUT"Datum ein (TT.MM.JJ [2355] 
) : ",dS(0,0) 

1180 PEN 3:L0CATE 30,3:PRINT d$(0,0):PEN 1 [1156] 
1190 CLS#l:LOCATE 12,21:PRINT CHR$(24);" B [4254] 
itte w{hlen Sie ";CHRS(24); 

1200 PLOT 176,80:DRAW 462,80 [950] 

1210 LOCATE 7,23:PRINT " (1989/90) by J}rg [2696] 
en Gropp"; 

1220 LOCATE 38,16:1F NOT g THEN PRINT CHRS [2296] 
(143)ELSE PRINT" " 

1230 LOCATE 19,12;IF g THEN PRINT CHRS(143 [2815] 
)ELSE PRINT" " 

1240 LOCATE 19,14:IF(lz(1)=0 AND lz(2)=0)T [5518] 
HEN PRINT CHRS(143)ELSE PRINT" ":LOCATE 19 
,16:PRINT CHR$(143) 


1250 LOCATE 19,8:PRINT CHR$(143) 

1260 LOCATE 19,10:PRINT CHRS(143) 

1270 LOCATE 38,12:IF Z(2><>0 THEN PRINT CH 
RS(143)ELSE PRINT" " 

1280 LOCATE 38,14:PRINT CHRS(143) 

1290 LOCATE 30,1O:PRINT CHRS(143) 

1300 LOCATE 38,8:PRINT CHRS(143) 

1310 LOCATE 38,16;IF NOT g THEN PRINT CHRS 
(143)ELSE PRINT" " 

1320 eS=INKEYS:IF eS=""THEN 1320 

1330 IF e$="0"THEN 3420 

1340 IF eS<"l" OR e$>'’9" THEN 1320 

1350 i=VAL(eS):ON i GOTO 1360,1370,1400,17 

90,5320,5030,4380,1380,5110 

1360 k=l:nk=2:GOTO 2240 

1370 k=2:nk=l:GOTO 2240 

1380 eS(2)="m":GOTO 4110 

1390 ' 

1400 'Speichern 
1410 ' 

1420 CLS#1 

1430 IF l 2 (l )=0 AND lz(2)=0 THEN LOCATE 4, 
22:PRiNT"Achtungl Datenspeicher ist leer! 
":CALL &BBia:CLS#l:GOTO 1190 
1440 LOCATE 12,21:PRINT"Datei vom ";d$(0,0 
):LOCATE 13,23:PRlNT"wird gespeichert" 

1450 OPENOUT "!Bank-dat" 

1460 PRINT#9,dS(0,0) 

1470 FOR 0=1 TO 2 
1480 PRINT#9,nS(i,o) 

1490 PRINT#9,nS(2,o) 

1500 PRINT#9,lz(o) 

1510 IF lz(o)=0 THEN 1620 
1520 FOR i=l TO lz(o) 

1530 PRINT#9,r$(i,o) 

1540 PRINT#9,dS(i,o) 

1550 FOR U=1 TO 3 
1560 PRINT#9,vS(i,0,u) 

1570 NEXT u 

1580 PRINT#9,soll(i,o) 

1590 PRINT#9,haben(i,o) 

1600 PRlNT#9,saldo(i,o) 

1610 NEXT i 

1620 FOR u=l TO 2 

1630 PRINT#9,a(o,u) 

1640 IF a(o,U)=0 THEN 1700 
1650 FOR i=l TO a(o,U) 

1660 PRINT#9,k$(o,U,i) 

1670 PRINT#9,w$(o,U,i) 

1680 PRINT#9,S(0,U,i) 

1690 NEXT i 
1700 NEXT U,o 
1710 PRINT#9,2(2) 

1720 IF Z(2)=0 THEN 1770 
1730 FOR i=l TO Z(2) 

1740 FOR 0=1 TO 5 
1750 PRINT#9,bS{i,o) 

1760 NEXT 0,i 
1770 CLOSEOUT 
1780 g=0;GOTO 1190 
1790 ' 

1800 'Laden 
1810 ' 

1820 CLS#l:IF NOT g THEN 1860 
1830 LOCATE 8,21:PRINT"Ge{nderte Datei wur 
de noch":LOCATE S,22:PRINT"nicht gespeiche 
rt.Trotzdem":LOCATE 9,23:PRINT"neue Datei 
laden (j/n) ?" 

1840 eS=UPPER$(INKEYS};IF eS=""THEN 1840 E 
LSE IF eS="J" THEN 1850 ELSE 1190 
1850 CLS#1:CLEAR:GOSÜB 260:LOCATE 30,3:PRI 
NT SPACES(8) 

1860 CLS#1 

1870 OPENIN"!Bank-dat" 

1880 INPUT#9,e$ 

1890 LOCATE 12,21:PRINT"Datei vom ";e$ 

1900 LOCATE 15,23:PRINT"wird geladen" 

1910 FOR 0=1 TO 2 
1920 INPUT#9,n$(l,0) 

1930 INPUT#9,n$(2,o) 

1940 INPUT #9,12(0) 

1950 IF l2(o)=0 THEN 2060 
1960 FOR i=l TO lz(o) 

1970 INPUT#9,rS(i,0) 

1980 INPUT#9,dS(i,o) 


[2225] 

[1773] 

[3485] 

[1439] 

[2487] 

[1068] 

[2296] 

[942] 

[750] 

[1105] 

[3198] 

[1727] 

[1371] 

[1306] 

[117] 

[428] 

[117] 

[373] 

[7187] 


[4115] 

[ 1201 ] 
[1303] 
[884] 
[ 868 ] 
[1222 ] 
[1601] 
[1229] 
[543] 
[926] 
[1060] 
[1327] 
[1301] 
[363] 
[1616] 
[1728] 
[1644] 
[375] 
[1328] 
[842] 
[1322] 
[388] 
[1433] 
[1533] 
[1458] 
[375] 
[570] 
[854] 
[972] 
[331] 
[897] 
[1186] 
[424] 
[902] 
[818] 
[117] 
[384] 
[117] 
[1756] 
[12372] 


[4117] 

[2615] 

[373] 

[635] 

[603] 

[1497] 

[1871] 

[884] 

[776] 

[1034] 

[826] 

[1429] 

[543] 

[ 1002 ] 

[1391] 
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Listing—i 


1990 FOR u=l TO 3 

2000 INPUT#9,v$(i,o,u) 

2010 NEXT U 
2020 INPUT#9,soll(i,o) 

2030 INPUT#9,haben(i,o) 

2040 INPUT#9,saldo(i,o) 

2050 NEXT i 
2060 POR U=1 TO 2 
2070 INPUT#9,a(o,u) 

2080 IF a{o,u)=0 THEN 2140 
2090 FOR i=l TO a(o,u) 

2100 INPUT#9,k$(o,u,i) 

2110 INPUT#9,wS(o,ii,i) 

2120 lNPUT#9,s(o,u,i) 

2130 NEXT i 
2140 NEXT u,o 
2150 INPUT#9,z(2) 

2160 IF z(2)=0 THEN 2210 
2170 FOR i=l TO z(2) 

2180 FOR 0=1 TO 5 
2190 INPUT#9,b$(i,o) 

’200 NEXT o,i 
2210 CLOSEIN 
2220 g=0:GOTO 1150 
2230 ' 

2240 'Kontostand 
2250 ' 

22^0olF(saldo(0,k)=0 ÄND lz(k)=0}THEN GOSU 

^2310^^ lz(k)>45 THEN U(1)=46:u(2)=60:GOTO 

220O^IF l2(k)>30 THEN U(1)=31:u(2)=45:GOTO 

2290^IF lz(k)>15 THEN u{1)=16;u{2)=30:GOTO 

2300 U(1)=1:u{2)=15 
2310 GOSUB 630 

2320 y=5:TAG:MOVE 403,394;PRINT u(2)/15;'T 
AGOFF 

2330 FOR i=u(l) TO u(2) 

2340 LOCATE 2,y:PRlNT USING”##";i;;XF rS(i 
,k)="J" THEN LOCATE S,y:PRINT CHRS(250}; 

2350 LOCATE 9,y:PRINT dS(i,k)LOCATE 19,y 
:PRINT v$(i,k,l);:LOCATS 23,y:PRINT vS(i,k 

f 2); 

2360 LOCATE 27,y:PRINT v$(i,k,3); 

2370 LOCATE 51,y:IF soll(i,k)<>0 THEN PRIN 
T üsiNG rS;soll(i,k); 

2380 LOCATE 61,y:IF haben(i,k)<>0 THEN PRI 
NT USING r$;haben{i,k) 

2390 LOCATE 71,y:PRlNT ÜSING rS;saldo(i,k) 

2400 y=y+l:NEXT i ' ' / 

2410 WINDOW#l,2,79,21,23:WINDOW#2,2,79,22, 

2420 CLS#1 

2430 PRINT#1,TAB(7);"N = Nummern 

R = Registrieren e = Einge 

ben" ^ 

2440 PRINT#1,TAB(7)/’'L = L[schen 

p = Dauerauftr{ge enter = Konto 

H • • 

2450 PRINT#1,TAB(7);''K = Kontrolle 

M = Menue 1,2,3,4 = Bl{tt 

ern" 

2460 e$=UPPERS(INKEYS);IF e$="" THEN 2460 
2470 IF eS=CHR$(13)THEN U(3)=k:k=nk:nk=u{3 
):GOTO 2270 

2480 i=INSTR(’'MNLDKER1234",e$) 

2490 ON i GOTO 300,2510,3120,3710,3590,278 
0,2690,2520,2530,2540,2550 
2500 GOTO 2460 

2510 GOSUB 400:GOSUB 4130:GOTO 2310 
2520 u(l)=l:u(2)=15:GOTO 2570 
2530 u(l)=16;u(2)=30:GOTO 2570 
2540 u(l)=31:u(2)=45:GOTO 2570 
2550 u(l)=46:u(2)=60:GOTO 2570 
2560 GOTO 2460 
2570 WINDOW 2,3,5,19:CLS 
2580 GOSUB 2590:GOTO 2320 
2590 WINDOW 5,5,5,19:CLS:WINDOW 9,17,5.19* 
CLS:WINDOW 19,21,5,19:CLS 
2600 WINDOW 23,25,5,19:CLS:WINDOW 27,48,5, [31191 
19:CLS:WINDOW 51,59,5,19:CLS ^ ‘ 

2610 WINDOW 61,69,5,19:CLS:WINDOW 71,79,5, [36011 
19:CLSrWINDOW 1,80,1,25rRETÜRN ^ 

2620 IF z>45 THEN y=2-41:RETURN [1720] 


[1327] 

[1164] 

[363] 

[1013] 

[824] 

[1373] 

[375] 

[1328] 

[835] 

[1314] 

[388] 

[1190] 

[947] 

[1124] 

[ 375] 
[570] 
[634] 
[971] 
[331] 
[897] 
[835] 
[424] 
[752] 
[890] 
[117] 
[ 1010 ] 
[117] 
[2465] 

[1704] 

[1884] 

[1903] 

[578] 
[919] 
[1625] 

[636] 
[5321] 

[5021] 


[2285 

[3195] 

[2382] 

[2347] 

[1395] 

[2644] 

[373] 

[5103] 


[4241] 

[3160] 


[2107] 

[1948] 

[1079] 

[3281] 

[367] 

[2963] 

[1763] 

[ 1020 ] 

[1558] 

[1231] 

[367] 

[1857] 

[1809] 

[4123] 


2630 IF z>30 THEN y=Z-26:RETURN 
2640 IF 2>15 THEN y=Z-ll:RETURN 
2650 y=Z+4:RETURN 
2660 ' 

2670 'Registrieren 
2680 ■ 

2690 CLS#1 

'" "^«istrler 

2710 LOCATE 30,23:INPUT "Zeile Nr.";z:r$(z 

/ k ) =" ij" 

2720 GOSUB 2620 

2730 LOCATE 5,y:PRINT CHRS(250) 

2740 g=-l:GOTO 2420 
2750 ’ 

2760 'Eingabe 
2770 ' 

2780 CLS#1 

Eingeben " 

} CHRS(24) 

2800 z=lz(k)+l:eS="" 

2810 IF 2>60 THEN LOCATE 28,23:PRINT"Erst 
Ijschen bitte ...":CALL &BB18 :goto 3120 
2820 IF Z>U(2)0R z<u(l) THEN LOCATE 28,23: 
PRINT"Uiiibl {ttern, bitte ": e$=RIGHTS (STR$ ( in 
T(2/15+0.95)),1):G0T0 2480 ^ 

2830 LOCATE 60,21:PRINT"2eile Nr. ";z;-GOS 
U8 2620 ' 

2840 LOCATE 25,23;PRlNT’'Ist die Buchung re 
gistriert (J/N) ?";:GOSUB 350 

(tS(z,k)<>" 

J AND r$(z,k)<>"N")THEN 2850 

2860 IF r$(z,k)="J"THEN LOCATE 5,y:PRINT C 

HRS(250)/ 

2870 CLS#2:PLOT 392,28:DRAWR 64,0:LOCATE 2 
2,23^INPUT"Datuin (ENTER=Tagesdatum) : ",d 

2880 IF dS(2,k)=""THEN dS(2,k) =d$ (0,0) 

2890 LOCATE 9,y:PRINT d$(2,k) 

2900 PLOT 392,28,0:DRAWR 64,0:PLOT 0,50,1: 
CLS#2 

2910 PLOT 352,28:DRAWR 24,0:LOCATE 31.23*1 

NPUT"Buchungsart : ",vS{2;k,l) 

2920 V$(z,k,l)=UPPER$(vS(z,k,l)):IF LEN(vS 
(z,k,l))>3 THEN PRINT CHRS{7);:GOTO 2900 
2930 LOCATE 19,y;PRINT v$(z,k,1);:IF (v$(z 
)^>"EC"AND vS(z,k,l)<>"SCH") THEN GOTO 

2940 CLS#2:LOCATE 30,23:INPUT" Scheck Nr 
: ",vS(z,k, 2 ) 

2950 LOCATE 23,y:PRINT vS(z,k,2); 

2960 CLS#2 \ 

2970 PLOT 280,28:DRAWR 176,0:LOCATB 21 23* 
INPUT"Verwendung : ",vS(z,k, 3 ) ' 

2980 IF LEN(vS(Z,k,3))>22 THEN PRINT CHR$( 
7);:GOTO 2960 

2990 LOCATE 27,y::PRINT vS(z,k,3) 

3000 CLS#2:PLOT 280,28,0:DRAWR 176,0:PLOT 
0,50,1 

3010 LOCATE 30,23:lNPOT"Abbuchung : ",so 
ll(z,k) 

3020 IF soll{z,k)<>0 THEN LOCATE 51,v:PRIN 
T ÜSING r$,*S0ll(z,k) :GOTO 3050 
3030 CLS#2:LOCATE 30,23:INPUT"Gutschrift 
: ",haben(z,k) 

3040 LOCATE 61,y:PRiNT USING rS;haben(z,k) 

3050 saldo{z,k)=saldo(z-l,k)-soll(2,k)+hab 

en( 2 ,k) ' ' / 

3060 LOCATE 71,y:PRINT USING r$;saldo(z,k) 


[1747] 

[1271] 

[1133] 

[117] 

[889] 

[117] 

[373] 

[2554] 

[3585] 

[863] 

[1311] 

[610] 

[117] 

[925] 

[117] 

[373] 

[2703] 

[1432] 

[4429] 

[6755] 


[2115] 

[4846] 

[4205] 

[2579] 

[4196] 

[1998] 

[1936] 

[2584] 

[3752] 

[3780] 

[4384] 

[3016] 

[2204] 
[372 
[3826] 

[3763] 

[1696] 
[1861 

[2216] 

[5719] 

[2775] 

[1396] 

[3667] 


3070 IF vS (2,k, 3)="Uiiibuchung"THEN GOSUB 40 

3080 lz(k)=lz(k)+l;g=-l;GOTO 2420 
3090 ' 

3100 'Loeschen 
3110 ' 

3120 CLS#1 

3130 LOCATE 35,21:PRINT CHRS(24),*" Llschen 
CHRS(24); ' 

3140 LOCATE 20,23:PRlNT"Wieviele Zeilen : 

( 0 = bestimmte Zeile llschen )" 

3150 eS=INKEyS;IF eS=""THEN 3150 

3160 za=VAL(e$):IF za=0 THEN 3180 

3170 IF za<l OR za>9 THEN 3150 ELSE z=l:GO 

TO 3200 

3180 CLS#2 


[2152] 

[2851] 

[1770] 

[117] 

[951] 

[117] 

[373] 

[2479] 

[4924] 

[ 888 ] 

[2166] 

[2734] 

[372] 
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3190 LOCATE 25,23:INPüT"Welche Zeile 11 sch [5204] 
en ? ",z;za=l 

3200 CLS#2 [372] 

3210 LOCATE 25,23:PRlNT"Einen Moment bitte [2290] 

It 

3220 lz(k)=lz(k)-za [1643] 

3230 saldo(0,k)=saldo(za,k) [1162] 

3240 FOR o=z TO lz(k) [596] 

3250 rS(o,k)=rS(o+za,k):dS(o,k)=dS(o+za,k) [6785] 
:v$(o,k,l)=vS(o+za,k,l);vS(o,k,2}=vS(o+za, 
k, 2 ):v$(o,k,3)=vS(o+za,k,3) 

3260 soll(o,k)=soll(o+za,k):haben{o,k)=hab [3947] 
en(o+za,k) 

3270 IF z=l THEN saldo(o,k)=saldo(o+za,k): [3077] 
GOTO 3290 

3280 IF saldo(o+za,k)=0 THEN saldo(o,k)=0 [5282] 
ELSE saldo(o,k)=saldo(o-l,k)+haben(o,k)-so 

11(0,k) 

3290 NEXT o [369] 

3300 FOR 0=lZ(k)+l TO 60 [921] 

3310 rS( 0 ,k)="N" [608] 

3320 dS(0,k)="” [744] 

3330 v$(o,k,l)-"" [766] 

3340 vS(o,k,2)="” [335] 

3350 vS{o,k, 3)="’’ [670] 

3360 soll(o,k)=0:haben(o,k)=0:saldo(o,k)-0 [2224] 
3370 NEXT O [369] 

3380 g=-l [437] 

3390 IF d(3)<>0 THEN RETURN [776] 

3400 GOSUB 2590:GOTO 2320 [1809] 

3410 ■ [117] 

3420 'ENDE [715] 

3430 ' [117] 

3440 CLS#1 [373] 

3450 IF g THEN LOCATE 6,21IPRINT"Achtung 1 [7659] 
Die ge{nderten Daten":LOCATE 7,22;PRINT"s 
ind noch nicht gespeichert!" 

3460 IF g THEN LOCATE 5,23:PRlNT"Programm [5426] 

trotzdem beenden (J/N)?":GOTO 3480 

3470 LOCATE 6,21:PRINT"Alle Daten sind ges [5971] 

peichert,":LOCATE 8,23:PRrNT"Programm been 

den (J/N) ?" 

3480 GOSUB 350 [982] 

3490 e$=UPPER$(INKEYS):IF e$="" THEN 3490 [2458] 

3500 IF eS="N" THEN 1190 [348] 

3510 IF eS="J" THEN 3530 [848] 

3520 GOTO 3490 [487] 

3530 CLS#1 [373] 

3540 LOCATE 16,22:PRINT"E N D E" [1387] 

3550 CALL &BB18:CALL 0 [1280] 

3560 ■ [117] 

3570 'Kontrolle [749] 

3580 ' [117] 

3590 CLS#1 [373] 

3600 LOCATE 35,21:PRINT CHR$(24)+" Kontrol [3018] 
le "+CHRS{24); 

3610 GOSUB 3620:LOCATE 25,23:PRINT USINC'S [6364] 
aldo Kontoauszug : ######.## DM";o;:CALL & 
BB18:GOTO 2420 

3620 o=saldo(lz(k),k) [372] 

3630 FOR i=l TO lz(k) [551] 

3640 IF rS{i,k)="J" THEN 3660 [1039] 

3650 o=o+soll(i,k)-haben(i,k) [1671] 

3660 NEXT i [375] 

3670 RETURN [555] 

3680 ' [117] 

3690 'Dauerauftraege abbuchen [1298] 

3700 ' [117] 

3710 CLS#l [373] 

3720 LOCATE 32,21:PRINT CHR$(24);" Dauerau [3471] 

ftr{ge ";CHR$(24) 

3730 LOCATE 27,23:INPUT "Bitte Datum einge [4011] 
ben : ",dS 

3740 e$=LEFTS(dS,2) [537] 

3750 IF eS*"01"THEN d(l)=l ELSE IF eS="15" [3922] 

THEN d(l)=2 ELSE GOTO 3710 
3760 CLS#2 [372] 

3770 LOCATE 32,23:PRINT"Moment bitte [2926] 

3780 d(3)=a(k,d{l)) [833] 

3790 za=60-lz(k) [1027] 

3800 IF za<d(3)THEN za=d(3)-za:Z=1:GOSUB 3 [1888] 
220 

3810 IF za>d(3) THEN d(2)=za ELSE d(2)=d(3 [1752] 

3820 i=l [423] 

3830 FOR o=61-d(2) TO 60-d(2)+d(3) [1691] 


3840 dS(o,k)=dS [906] 

3850 vS{o,k,l)=kS(k,d(l),i) [1074] 

3860 vS{ 0 ,k,3)=wS{k,d(l),i) [1187] 

3870 soll(o,k)=s(k,d(i),i) [1066] 

3880 IF vS(o,k,3)="Uinbuchung"THEN GOSUB 40 [2240] 
10 

3890 saldo(o,k)=saldo(0-1,k)-soll(o,k) 

3900 i=i+l 


3910 NEXT 

3920 lz(k)=lz(k)+d(3) 
3930 d(3)=0 
3940 GOSUB 2590 
3950 g=-l 
3960 GOTO 2320 
3970 ’ 

3980 'Umbuchen 
3990 ' 

4000 0=Z 

4010 lz(nk)=lz(nk)+i 


[1742] 

[444] 

[350] 

[1786] 

[398] 

[901] 

[437] 

[347] 

[117] 

[1288] 

[117] 

[99] 

[1470] 


4020 IF lz(nk)>60 THEN lz{nk)=lz(nk)-1:d(3 [3988] 
)=k;k=nk:z=l:za=l:GOSUB 3220:k=d(3):d(3)=0 
:GOTO 4010 

4030 d$(lz(nk),nk)=d$(o,k) [776] 

4040 v$(lz(nk),nk,l)=vS{o,k,i) [730] 

4050 v$(lz(nk),nk,3)="Umbuchung" (1301] 

4060 haben(lz(nk),nk}=soll(o,k) [1716] 

4070 soll(lz(nk),nk)=haben(o,k) [1365] 

4080 saldo(l 2 (nk),nk)=saldo(lz(nk)-l,nk)+h [5449] 
aben(lz{nk),nk)-soll(Iz(nk),nk) 

4090 RETURN [555] 

4100 ' [117] 

4110 'Konto-Nummern abrufen [1165] 

4120 ' [117] 

4130 CLS#2:CLS#3 [637] 

4140 LOCATE 14,3:PRINT"KONTONUMMERN" [1743] 

4150 PLOT 18,18:DRAW 620,18:DRAW 620,316:0 [2587] 
RAW 18,316:DRAW 18,18 

4160 PLOT 320,18;DRAW 320,316 [923] 

4170 PLOT 18,118:DRAW 620,118:DRAWR 0,98;D [1412] 
RAW 18,216 

4180 23=0 [660] 

4190 FOR i=l TO Z(2)STEP 6 [768] 

4200 PAPER l:WINDOW 3,19,7,11:CLS:WINDOW 3 [3681] 
,19,13,17:CLS:WINDOW 3,19,19,23:CLS 
4210 WINDOW 22,38,7,ll:CLS;WINDOW 22,38,13 [4225] 
,17:CLS:WINDOW 22,38,19,23:CLS 
4220 WINDOW 3,20,7,24 
4230 IF za=3 THEN WINDOW 22,39,7,24 
4240 FOR 0=1 TO 5 

4250 IF 0=1 THEN PEN 3 ELSE PEN 0 
4260 e$=bS<i+za,o) 

4270 u=INT((17-LEN(e$))/2) 

4280 eS=SPACE$(u)+e$ 


4290 PRINT e$ 

4300 NEXT o;PRINT 

4310 za= 2 a+l:IF za=6 THEN za=0:GOT0 4330 
4320 GOTO 4230 
4330 CALL &BB18:NEXT 
4340 PAPER 0:PEN 1 


[911] 

[1957] 

[897] 

[850] 

[562] 

[1432] 

[854] 

[407] 

[493] 

[3619] 

[389] 

[1312] 

[965] 


[ 347 ] 

[117] 

[1481] 

[117] 

[632] 

[4084] 

[2973] 

[949] 


4350 IF e$(2)="m"THEN eS(2:CLS#2:CLS#3 [5410] 
rWINDOW 1,40,1,25:GOSUB 580:GOTO 810 
4360 GOTO 2240 
4370 ' 

4380 'Dauerauftraege eingeben 
4390 ’ 

4400 CLS#2:CLS#4 

4410 LOCATE 13 ,3:PRINT"Dauerauftr{ge" 

4420 LOCATE 5,8:INPUT"Konto 1 oder Konto 
(1/2) ";k 

4430 IF k<l OR k>2 THEN 4400 
4440 LOCATE 5,10:INPÜT"!. oder 15. des Mon [3134] 

ats (1/2) ";d 

4450 IF d<l OR d>2 THEN 4400 [1241] 

4460 CLS#4:CLS#l:g(l)=0 [1150] 

4470 FOR i=l TO a(k,d) [891] 

4480 y=i+6 [748] 

4490 LOCATE 2,y:PRINT USING"##:";i [1954] 

4500 LOCATE 6,y:PRINT k$(k,d,i) [866] 

4510 LOCATE 9,y:PRINT w$(k,d,i) [1819] 

4520 LOCATE 32,y:PRINT USING"####.;S(k, [3633] 

d,i> 

4530 g(l)=g(l)+s(k,d,i) 

4540 NEXT 

4550 TAG:MOVE 96,86:PRINT"Gesamtbelastung 
f}r Konto ";k;:TAGOFF 

4560 LOCATE 6,22:IF d=l THEN PRINT"am 01. 


[962] 

[350] 

[3662] 

[5976] 
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des Monats:"ELSE PRINT"ani 15. des Monats:" 
4570 LOCATE 25,22:PRINT USING"#####.## DM" 

;g(i); 

4580 LOCATE 2,23:PEN 3:PRINT STRINGS(38," 
4590 LOCATE 2,24 

4600 PAPER 3:PEN 2:PRINT" E - Eingabe L 
- 11 sehen M - Menue "; 

4610 PAPER 0:PEN 1 

4620 e$=UPPERS(rNKEY$):IF e$="" THEN 4620 

4630 IF e$="E" THEN 4650 ELSE IF eS="L" TH 

EN 4770 ELSE IF eS="M"THEN 4760 

4640 GOTO 4620 

4650 a{k,d)=a(k,d)+l 

4660 CLS#1 

4670 LOCATE 17,22:PRINT STRINGS(3,209)? 
4680 LOCATE 3,21:INPUT"Buchungsart ; ",kS( 
k,d,i) 

4690 kS(k,d,i)=UPPER$(k$(k,d,i));LOCATE 17 
,22:PRINT SPACES(3) 

4700 LOCATE 17,23:PRINT STRINGS(22,209); 
4710 LOCATE 3,22:INPüT'’Verwendung ; ",wS( 
k,d,i) 

4720 LOCATE 17,23:PRINT SPACE$(22) 

4730 LOCATE 3,23:INPUT"Betrag : ",s(k 

i) 

4740 CLS#1 
4750 g*-l:GOTO 4460 
4760 CLS#4:CLS#2:GOTO 800 
4770 CLS#1 

4780 LOCATE 4,23:INPUT"Welchen Dauerauftra 
g 1 Ischen : ",z 

4790 IF Z<1 OR z>a(k,d) THEN PRINT CHR$(7) 

;:GOTO 4770 

4800 a(k,d)=a(k,d)-l 

4810 FOR i=z TO aU,d) 

4820 kS(k,d,i)=k$(k,d,i+l} 

4830 wS(k,d,i)=w$(k,d,i+l) 

4840 s(k,d,i)=s(k,d,i+l) 

4850 NEXT 

4860 g=-l:GOTO 4460 
4870 ' 

4880 ' Prograiranstart 
4890 ' 

4900 CLS#4:CLS#2 

4910 LOCATE #2,12,2:PRINT#2,"Erste Buchung 


(2375] 

[2642] 

(720] 

[4009] 

[965] 

[2329] 

[3005] 

[557] 

[641] 

[373] 

[2249] 

[4250] 

[2410] 

[1890] 

[3057] 

[1899] 

[2554] 

[373] 

[330] 

[835] 

[373] 

[3899] 

[2283] 

(685] 

[640] 

[1666] 

[1279] 

(457] 

[350] 

[330] 

[117] 

[1725] 

[117] 

[794] 

[3278] 


4920 WINDOW 4,37,9,17 

4930 PRINT"Weichen Stand hat Konto",'k,‘"vor 
der" 

4940 PRINT:lNPUT"ersten Buchung ";saldo{0, 
k) 

4950 PRINTrPLOT 288,188:DRAWR 190,0:1NPUT" 
Konto-Nummer : ",nS(l,k) 

4960 PRINT:PRINT*'Konto-Inhaber : " 

4970 PLOT 46,124;DRAWR 512,0 
4980 PRIMT:INPUT"",nS(2,k) 

4990 RETURN 
5000 ' 

5010 'CAT 
5020 ' 

5030 WINDOW 2,39,6,24:CLS 
5040 CAT 

5050 CALL &BB18:CLS 
5060 WINDOW 1,40,1,25 
5070 GOSUB 580:GOTO 810 
5080 ' 

5090 'Konto-Nummern 
5100 ' 

5110 CLS#l:CLS#2:CLS#4 

5120 LOCATE#2,6,2:PRINT#2,"Daten eingeben 
: . Konto" 

5130 WINDOW 4,39,8,18 

5140 FOR i=z(2)+l TO 18 

5150 LOCATE #2,23, 2 :PRINT#2,USING"##";i 

5160 LOCATE#!,12,3:PRINT#1,"ENTER = Menue" 

5170 PLOT 320,268:DRAWR 272,0:LOCATE 1,1:1 

NPUT"Konto-Art : ",bS(i,l) 

5180 IF b$(i,l)s""THEN CLS:WINDOW 1,40,1,2 
5:CLS#2:GOTO 800 

5190 IF LEN(bS(i,l))>17 THEN LOCATE 18,1:P 
RINT SPACES(19):GOTO 5170 
5200 CLS#1 


[1023] 

[4336] 

[2300] 

[3144] 

[2375] 

[780] 

[475] 

[555] 

[117] 

[488] 

[117] 

[1199] 

[96] 

[1057] 

[1024] 

[1815] 

[117] 

[753] 

[117] 

[1225] 

[4151] 

[854] 

[ 1021 ] 

[2320] 

[2447] 

[2953] 

[3854] 

[3975] 

[373] 


5210 LOCATE 1,3:PLOT 320,236:DRAWR 272,0:1 
NPUT"Konto-Inhaber ; ",bS{i,2) 

5220 IF LEN{b$(i,2))>17 THEN LOCATE 18,3:P 
RINT SPACES(19):G0T0 5210 

5230 LOCATE l,5:PLOT 320,204:DRAWR 272,0:1 
NPUT"Konto-nunimer : ",bS(i,3) 

5240 IF LEN{b$(i,3))>17 THEN LOCATE 18,5: 
PRINT SPACES(19):GOTO 5230 
5250 LOCATE l,7:PLOT 320,172:DRAWR 272,0:1 
NPUT"Bank : ",bS(i,4) 

5260 IF LEN{bS(i,4))>17 THEN LOCATE 18,7:P 
RINT SPACES (19 ^GOTO 5250 

5270 LOCATE l,9:PLOT 320,140:DRAWR 128,0:1 
NPUT"Bankleitzahl ; ",bS(i,5) 

5280 IF LEN(bS(i,5))>8 THEN LOCATE 18,9;PR 
INT SPACES(19):GOTO 5270 
5290 b$(i,5)="BLZ : "+bS(i,5) 

5300 g=-l:CLS 
5310 z(2)=i:NEXT 
5320 ’ 

5330 'Drucken 
5340 ' 

5350 CLS#l:LOCATE #1,7,2:PRINT#1,"Daten VO 
n welchem Konto" 

5360 LOCATE#!,8,4:INPÜT#l,"ausdrucken (L/2 

) ? ",k 

5370 IF k<l OR k>2 THEN 5330 

5380 CLS#l:LOCATE#l,12,2:PRINT#1,"Datei VO 

n Konto";k 

5390 LOCATE#!,12,4:PRINT#l,"wird ausgedruc 
kt" 

5400 PRINT#8,CHRS(27);CHRS(82);CHR$(2); 
5410 PRINT#8,CHRS(27);CHRS(68);CHR$(4);CHR 
$(7);CHRS(17);CHRS(21);CHR$(26);CHR$(51);C 
HR$(61);CHR$(71);CHR$(0) 

5420 PRINT#8,"K ONTOAUSZUG vom 
";dS(0,0);" f}r Konto";k:PRINT#8 
5430 PRINT#8,"Kontonummer ; ";n$(l,k);SPAC 
E$(10);"Inhaber : ";nS(2,k):PRINT#a 
5440 PRiNT#8,"Nr R Datum Verwendung 

Soll Haben 

Saldo" 

5450 PRINTta 

5460 FOR i=l TO lz(k) 

5470 PRINT#8,USlNG"##";i;:GOSUB 360 
5480 IF rS(i,k)="J" THEN PRINT#8,r$(i,k); 
5490 GOSUB 360 

5500 PRINT#8,d$(i,k);:GOSÜB 360 
5510 FOR 0=1 TO 3 
5520 PRINT#8,V$(i,k,o);:GOSUB 360 
5530 NEXT 

5540 IF SOll(i,k)=0 THEN 5560 
5550 PRINT#8,ÜSING r$;soll(i,k);:GOSUB 360 
:GOTO 5580 
5560 GOSUB 360 

5370 PRINT#8,USING r$;haben(i,k); 

5580 GOSUB 360 

5590 PRINT#8,USING r$;saldo(i,k) 

5600 NEXT 

5610 PRINT#8:GOSUB 3620 

5620 PRINT#8,SPACES(15);"Der Kontostand be 
tr(gt laut Bankauszug ";o;" DM." 

5630 GOTO 1190 


[4083] 

[4359] 

[4203] 

[3822] 

[4622] 

[4463] 

[5534] 

[3112] 

[1268] 

[374] 

[1300] 

[117] 

[1548] 

[117] 

[1937] 

[2847] 

[ 1122 ] 

[1895] 

[3090] 

[2667] 

[8815] 


[5917] 

[4717] 

[5119] 


[343] 

[551] 

[2445] 

[2644] 

[1036] 

[1993] 

[883] 

[2137] 
[350] 
[1562] 
[3917] 

[1036] 

[2230] 

[1036] 

[2383] 

[350] 

[829] 

[4300] 

[397] 


Dreh-Driss 

System: CPC6I28 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 



INITIALISIERUNG 

MODE 1 


110 DIM level(l6),score(16),name$(l6) 
120 : 


[2207] 

[353] 

[829] 

[353] 

[1405] 

[117] 

[1300] 

[947] 

[117] 

[506] 

[1226] 

[174] 
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r~Listing 


130 FOR i=l TO 5:READ t(i):NEXT 
140 DATA 179,142,150,127,142 
150 : 

160 FOR i=l TO 15:READ level(i),score(l),n 
anie$(i) :NEXT „ 

170 DATA 10 , 10000 ,"Struggle Machine’ 

180 DATA 10,9000,"Iron Michael" 

190 DATA 10 , 8000 ,’'RufUS Rusticus" 

200 DATA 9 , 7000 ,’'Relleum Ekim" 

210 DATA 8,5000,"Wetzel” 

220 DATA 4,4444,"Serge & Bruno" 

230 DATA 5 , 3000 ,"ClauSofix'' 

240 DATA 3,2000,"Der Profi" 

250 DATA 3,1989,"Bohnenpflanzer" 

260 DATA 3,1973,"Arno Nym" 

270 DATA 2,1234,"Schlotto" 

280 DATA 2 , 1111 ,"Johnny B." 

290 DATA l,999,"Mr. Oliv" 

300 DATA 1,888,"no name" 

310 DATA i,lll,"DuennBchuetz" 

320 : 

330 PEN 2 

340 LOCATE 1 , 10 :PRINT "Enjoy the fantastic 
Speed of your Z80..." 

350 ' 

360 ■ DREHDRISS-SCHRIFTZUG 
370 ' - 

380 ' 

390 FOR y = 7 TO 0 STEP -1 
400 RESTORE 470 
410 FOR X = 1 TO 40 
420 READ b 

430 PEN R0UND(RND*2)+1 

440 IF (b AND 2‘y) > 0 THEN LOCATE X,y+l:P 
RINT CHRS(143);:LOCATE X,25-y:PRINT CHRS(1 
43); 

450 NEXT X,y 
460 : 

470 DATA 255,129,129,126,0,255,9,9,246 
480 DATA 0,255,137,137,129,0,255,8,8 
490 DATA 255,0,126,129,129,255,0,246,9 
500 DATA 9,255,0,255,0,113,137,137,134 
510 DATA 113,137,137,134 
520 : 

530 C = l; GOSUB 2900 
540 DATA 1,38,9,1 

550 DATA "(Bauernsprache) = Probleme beim 
Drehen" 

560 ’ 

570 ’ NACHLADEN 

580 ' - 

590 ' 

600 MEMORY S5FFF 
610 : 

620 C = 1: GOSUB 2900 
630 DATA 8,24,14,1 

640 DATA "Loading machine-code ..." 

650 : 

660 LOAD "dd.bin",S!6000 
670 : 

680 c = 1; GOSUB 2900 
690 DATA 5,30,13,27 
700 WINDOW#!,6,35,14,15 
710 WINDOW SWAP 0,1 

720 PRINT TAB(8);"Load highscores ?",-SPACE 
$(4) 

730 GOSUB 3090:PRINT:PRINT 
740 IF C- = 3 THEN GOTO 830 
750 LOCATE 1,1 

760 PEN 2:PRINT TAB(5);"Loading highscores 

M 

770 : 

780 OPENIN "ddhs" 

790 FOR X = 1 TO 15 

800 INPUT*9 ,level(x), score(x) ,naineS(x) 

810 NEXT 
820 CLOSEIN 
830 WINDOW SWAP 0,1 
840 ' 

850 ' PLAYER&LEVEL-WAHL 

860 ' - 

870 ’ 

880 FOR c = 2 TO 5 


[1825] 

[ 1000 ] 

[174] 

[2666] 


[1294] 
[1358] 
[2529 J 
[1171] 
[457] 
[1324] 
[529 
[1289] 
[1244] 
[859] 
[623] 
[1329] 
[1319] 
[1242] 
[1623] 
[174] 
[548; 
[3055) 

[117) 

[1480) 

[1177) 

[117) 

(1016) 

[773] 

[797] 

[431] 

[1260] 

[4640] 


[548] 
[174) 
[11651 
[1432) 
[1319) 
[1334] 
[1071] 
[174] 
[1309] 
[324] 
[4365] 

[117] 
[788] 
[555] 
[117] 
[ 102 ] 
[174] 
[1309] 
[246] 
[2047] 
[174] 
[1292] 
[174] 
[13091 
[446] 
[970] 
[1031] 
[3248] 

[1685] 

[781] 

[611] 

[2466] 

[174] 

[1126] 

[814] 

[2219] 

[350] 

[752] 

[1031] 

[117] 

[1935] 

[955] 

[117] 

[748] 


[604] 


[815] 


[1369] 


890 GOSUB 2900 
900 NEXT 
910 : 

920 DATA 1,13,12,4 
to " [609] 

= [CTRLJ-x = chr${24) = CAN 
950 DATA " Change the " 

960 DATA " number of " 

970 DATA " players. " 

980 DATA 16,8,12,26 
990 DATA "1 Player" 

1000 DATA 16,8,15,26 
1010 DATA "Level: 1" 

1020 DATA 26,13,12,4 
to " 

1040 DATA "increase the " 

1050 DATA " Level. 

to Play" 

1070 : 

1080 PEN 1 
1090 : 

1100 aS=INKEYS:IP aS»"" THEN 1100 

1110 IF UPPERS(a$)="P" THEN pl = ABS(pl-3) 

: LOCATE 17,13:PRINT DECS(pl,"#") 

1120 IF UPPERS(aS)="L" THEN 1 = 1+1+(1=9)* 
9: LOCATE 23,16:PRINT STRS(l) 

1130 IF ASC(aS)=13 OR aS=" " OR ASC(a$)=22 
4 THEN GOTO 1190 
1140 GOTO 1100 
1150 ’ 

1160 ■ KEYS 

1170 ' - 

1180 ' 

1190 
XT 

1200 : 

1210 DATA 6,13,3,1 
1220 DATA "KEYS PLAYER 1" 

1230 DATA 6,13,6,5 


pl = 1: 1=1 


c = l: FOR i = 1 TO 8: GOSUB 2900: NE 


1250 DATA " 

M 

1270 DATA " 


[603] 


[466] 


[466 


1290 

DATA 

21,13,3,1 


1300 

DATA 

"KEYS PLAYER 

2" 

1310 

DATA 

21,13,6,5 



II 

[404] 

1330 

DATA 

M 

1t 

it 


[508] 


1350 

DATA 

M 

tl 


II 


[405] 

1370 

DATA 

6,13,13,1 


1380 

DATA 

"or Joystick 

1" 

1390 

DATA 

21,13,13,1 


1400 

DATA 

"or Joystick 

2" 

1410 

DATA 

6,28,16,1 


rev 

[1419] 


ive" 

1430 

DATA 

12,16,19,26 


1440 

DATA 

"Press any key... 

1450 

: 




[903] 

[350] 

[174] 

[673] 


[1217] 

[1139] 

[533] 

[340] 

[578] 

[636] 

[887] 

[319] 

[1838] 

[466] 

[174] 

[951] 

[174] 

[1460] 

[4483] 

[4582] 

[2634] 

[351] 

[117] 

[171] 

[489] 

[117] 

[1079] 

[174] 

[548] 

[483] 

[659] 

[381] 

[381] 

[346] 

[505] 

[489] 

[381] 

[381] 

[608] 

[1421] 

[529] 

[1411] 

[552] 


1460 PEN 2 

1470 LOCATE 13,7:PRINT CHRS(24);CHR$(240) 
1480 LOCATE 9,9:PRINT CHRS(242) 

1490 LOCATE 17,9:PRINT CHRS(243) 

1500 LOCATE 13,11:PRINT CHR$(241);CHRS(24 
1510 : 

1520 CLEAR INPUT 

1530 aS=INKEyS:IF aS="" THEN 1530 


COPYRIGHT-MELDUNG 


1540 
1550 

1560 ' - 

1570 ’ 

1580 C = 1: GOSUB 2900 
1590 DATA 12,16,7,35 
1600 DATA "(c) ICHTHYS-Soft" 
1610 DATA " " 

1620 DATA " Programming: " 
1630 DATA "Siegbert Riecker" 
1640 DATA " " 

1650 DATA ’’ Testing: " 

1660 DATA " Markus Andre " 


[635] 

[1530] 

[174] 

[548] 

[1906] 

[1661] 

[1689 

[1845] 

[174] 

[184] 

[1455] 

[117] 

[744] 

[955] 

[117] 

[1309] 

[675] 

[1630] 

[672] 

[1076] 

[2006] 

[672] 

[1329] 

[1460] 
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Listinq—| 


1670 DATA " " 

[672] 


2410 WINDOW#2,19,35,5+X,5+x:CLS#2;INPirr#2, 

[1834] 

1680 DATA " " 

[672] 


" ",nameS(x) 


1690 DATA " ” 

[672] 


2420 IF LEN(nameS(X))>16 THEN PR1NT#1,SPAC 

[3386] 

1700 : 

[174] 


ES(7);"Name too long !"SPACES(6):GOTO 2400 


1710 DEG 

[133] 


2430 : 

[1741 

1720 aS=IMKEY$ 

[278] 


2440 IF pl=l THEN 2620 

[1163] 

1730 X = ROUND(RND*54)+248 

[2674] 


2450 ' 

[117] 

1740 r = ROUND(RND*5)+200 

[909] 


2460 ' PLAYER 2 

[1070] 

1750 C = ROüND(RND*2)+l 

[1720] 


2470 ' - 

[338] 

1760 PLOT 305+COS(x)*r,335+SIN(X)*r,C 

[1462] 


2480 ' 

[117] 

1770 PLOT 305+COS{x)*r,-35-SIN<x)*r,C 

[2317] 


2490 SCO = VAL{HEX$(PEEK(&64AC),2))+VAL(HE 

[4306] 

1780 IF a$="" THEN 1720 

[719] 


X$(PEEK(&64AD),2))*100+VAL(HEXS(PEEK(&64AE 


1790 ' 

[117] 


),2))*10000 


1800 ■ POKESSSTART 

[1096] 


2500 lev = VAL(HEXS(PBEK(&64AF),2)) 

[1738] 

1810 ' - 

[597] 


2510 PEN 2:GOSaB 3450 

[1210] 

1820 ’ 

[117] 


2520 : 

[174] 

1830 IF pl=l THEN POKE &602C,0 ELSE POKE & 

[3526] 


2530 IF X = 16 THEN PRINT#1:PRINT#1,"and P 

[2896] 

602C,1 



layer 2 ...":GOSUB 3720:GOTO 2620 


1840 POKE &6A53,l:POKE &6A6F,l:POKE SGSFl, 

[2167] 


2540 : 

[174] 

1 



2550 PRINT#1,SPACE$<2);"Player 2, enter yo 

[2139] 

1850 POKE &6A58,24-l*2:POKE &6A74,24-1*2 

[1823] 


ur name !" 


1860 POKE St65B6,7+l 

[573] 


2560 WINDOW#2,19,35,5+X,5+x:CLS#2:INPOT#2, 

[1834] 

1870 : 

[174] 


""»nameS(x) 


1880 CALL &6000 

[469] 


2570 IF LEN(name$(x))>16 THEN PRINT#1,SPAC 

[3404] 

1890 ' 

[117] 


ES(7);"Name too long !"SPACES(6):GOTO 2550 


1900 ' BILDSCHIRM-UMBAU 

[1650] 


2580 ' 

[117] 

1910 ' - 

[874] 


2590 ’ NOCHMAL? 

[211] 

1920 • 

[117] 


2600 ' - 

[338] 

1930 LOCATE 4,9:PRINT SPACES(13) 

[2324] 


2610 ' 

[117] 

1940 PEN llrLOCATE 4,10;PR1NT "Press any k 

[3458] 


2620 WINDOW SWAP 0,1 

[1031] 

ey" 



2630 LOCATE 1,1 

[611] 

1950 LOCATE 4,11:PRINT SPACES(13) 

[1861] 


2640 PRINT " Are you able to play again ?" 

[3571] 

1960 CLEAR INPÜT 

[184] 


2650 GOSUB 3090 

[1142] 

1970 a$=INKEY$:IF aS="" THEN 1970 

[1462] 


2660 : 

[174] 

1980 : 

[174] 


2670 IF C = 1 THEN 2830 

[653] 

1990 PEN 13:LOCATE 5,2:PRINT "High-Scores" 

[2307] 


2680 : 

[174] 

2000 : 

[174] 


2690 LOCATE 1,1 

[611] 

2010 POKE &BDEB,&C9 ’;"CLS" sperren 

[1217] 


2700 PRINT TAB(8);"Save highscores ?";SPAC 

[2577] 

2020 POKE SA000,&3E ’LD A, 

[303] 


E$(5) 


2030 POKE &A001,1 1 

[408] 


2710 GOSUB 3090 

[1142] 

2040 POKE &A002,&CD 'CALL 

[940] 


2720 : 

[174] 

2050 POKE &A003,&E ' SCR 

[654] 


2730 IF C = 3 THEN 2810 

[655] 

2060 POKE &A004,&BC SET MODE 

[1238] 


2740 : 

[174] 

2070 POKE &A005,&C9 'RET 

[519] 


2750 PRINT:PRINT:LOCATE 1,1 

[1478] 

2080 CALL &A000 

[637] 


2760 PRINT TAB(6);"Saving highscores..." 

[1543] 

2090 POKE &BDEB,195 ';"CLS" freigeben 

[1309] 


2770 OPENOUT "ddhs" 

[1005] 

2100 ' 

[117] 


2780 FOR X = 1 TO 15: WRITE#9,level(x),SCO 

[3690] 

2110 ’ HIGHSCORES-AUFBAU 

[1235] 


re(x),name$(x): NEXT 


2120 ' - 

[955] 


2790 CLOSEOUT 

[902] 

2130 ’ 

[117] 


2800 : 

[174] 

2140 FOR c = 1 TO 3 

[584] 


2810 MODE 2:INK 1,26:CLEAR INPUT;FOR i=l T 

[6903] 

2150 GOSUB 2900 

[903] 


0 5:SOUND l,t(i),10:CLS:PRINT LEFTSC’Ready 


2160 NEXT 

[350] 


",i);:POR X=1 TO 250:NEXT X,i:SOUND 1,71,1 


2170 DATA 5,30,1,2 

[523] 


0;CLS:END 


2180 DATA 5,30,5,15 

[396] 


2820 ; 

[174] 

2190 DATA 5,30,22,2 

[504] 


2830 LOCATE 1,2:PRINT SPACES<14);"Yes";SPA 

[3117] 

2200 : 

[174] 


CES(13}; 


2210 PEN 2 

[548] 


2840 WINDOW SWAP 0,1 

[1031] 

2220 FOR X = 1 TO 15 

[814] 


2850 RESTORE 920:GOTO 880 

[1414] 

2230 LOCATE 6,5+x 

[411] 


2860 ■ 

[117] 

2240 PRINT DEC${x," ;DEC$(level (x) 

[5403] 


2870 ' WINDOW-UMRANDUNG 

[719] 

";DECS(score<x),"#####");" ";nanie 



2880 ' - 

[874] 

$(x) 



2890 ' 

[117] 

2250 NEXT 

[350] 


2900 READ x,dx,y,dy 

[390] 

2260 : 

[174] 


2910 IF dy > 25 THEN dy = dy - 25: p = 1 E 

[1397] 

2270 FOR x=l TO 1500:NEXT 

[1154] 


LSE p = 2 


2280 cy = 0 

[295] 


2920 : 

[174] 

2290 WINDOW#!,6,35,23,24 

[1161] 


2930 WINDOW#c,x,x+dx+l,y,y+dy+l:PEN#c,l 

[2405] 

2300 • 

[117] 


2940 : 

[174] 

2310 ' PLAYER 1 

[1067] 


2950 PRINT#C,CHR$(150);STRINGS(dx,154);CHR 

[3401] 

2320 ' - 

[338] 


$(156); 


2330 ' 

[117] 


2960 FOR Z = 1 TO dy 

[1038] 

2340 SCO = VAL(HEX$(PEEK(&64A2),2))+VAL(HE 

[5524] 


2970 IF dx <> 30 THEN READ text$ ELSE IF y 

[6495] 

XS{PEEK(S64A3),2))*100+VAL(HEX$(PEEK(&64A4 



> 1 THEN textS = SPACES(30) ELSE textS = 


),2))*10000 



STRINGS(30,9) 


2350 lev = VAL(HEXS(PEEK(&64A5),2)) 

[1729] 


2980 PRINT#c,CHRS(149); 

[1450] 

2360 GOSUB 3450 

[1039] 


2990 PEN#C,p:PRINT#C,textS;:PEN#C,1 

[2369] 

2370 : 

[174] 


3000 PRINT#C,CHR$(149); 

[1450] 

2380 IF X = 16 THEN PRINT#1:PRINT#1,"Playe 

[3370] 


3010 NEXT 

[350] 

r 1 ,..":GOSUB 3720:GOTO 2440 



3020 PRINT#C,CHR$(147)/STRINGS(dx,154);CHR 

[3818] 

2390 : 

[174] 


$(153); 


2400 PRlNT#l,SPACE$(2);"Player 1, enter yo 

[2450] 


3030 : 

[174] 

ur name !" 
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r^Listing 


3040 RETURN [555] 

3050 • [1171 

3060 ’ IDIOTEN-ABFRAGE [1265] 

3070 ' - [947] 

3080 ' [ü'^l 

3090 C = 1: GOSUB 3190 [1299] 

3100 : [174] 

3110 IF INKEy(l)<>-l OR 1NKEY(75)<>-1 THEN [3690] 
IF C<3 THEN C = c + ItGOSUB 3190 
3120 IF INKEY(8}<>-1 OR INKEY{74)<>-1 THEN [2673] 
IF Ol THEN c = c - l:GOSUB 3190 
3130 IF INKEY(43)<>-1 THEN c = 1;G0SUB 319 [2084] 

0 

3140 IF INKEY(35)<>-1 THEN C = 2:G0SUB 319 [889] 

0 

3150 IF INKEY(46)<>-1 THEN C = 3:GOSUB 319 [1863] 

0 

3160 IF INKEY{9)<>-1 OR INKEY(18)<>-1 OR I [4494] 
NKEY(47)<>-1 OR INKEY(76)<>-1 OR 1NKEY(77) 

0-1 THEN GOTO 3260 
3170 GOTO 3110 [459] 

3180 : [174] 

3190 IF C = 1 THEN ClS = CHR$(24) ELSE ClS [2350] 

« II I» 

3200 IF C = 2 THEN C2S = CHRS(24) El.SE C2S [1812] 

— n »I 

3210 IF C = 3 THEN c3S = CHRS(24) ELSE C3$ [2238] 

9 II II 

3220 LOCATE 1,2 [614] 

3230 PRINT clS;"Yes";clS;SPACES(6);c2S;"I" [6235] 
+CKRS(39) + "in not shure’';c2$;SPACE$(6);c3$; 
"No";c3$; 

3240 RETURN [555] 

3250 : [174] 

3260 IF C = 1 OR C = 3 THEN IF flag = 0 TH [3311] 
EN CLEAR INPUT:RETURN 

3270 IF C = 3 THEN LOCATE l,l:PRrNT SPACES [7053] 
(4);''Then it is your turn... ";SPACES (3): fl 
ag = 0: GOTO 3090 
3280 IF c = 1 THEN GOTO 3340 [536] 

3290 : [174] 

3300 LOCATE 1,1 [611] 

3310 PRINT SPACES(7);"Shall I decide ?";SP [4210] 
ACES(7) 

3320 flag = l:GOTO 3090 [1044] 

3330 : [174] 

3340 LOCATE 1,1: PRINT SPACES(8);"You want [4088] 
to , . .'';SPACE$(7) :c - l: GOSUB 3190 
3350 IF ROUND(RND*10)=0 THEN 3390 [2066] 

3360 LOCATE 6,1: PRINT "YOU don"+CHR${39)+ [4065] 
"t want to = 3: GOSUB 3190 

3370 IF ROUND(RND*10)>0 THEN 3340 
3380 : 

3390 FOR flag = 2000 TO 1 STEP -1:NEXT 
3400 CLEAR INPUT:RETURN 
3410 ' 

PLAYER-IN-HIGHSCORE 


3420 

3430 ’ - 

3440 ' 

3450 X Ä l: GOTO 3470 

3460 X = X +l: IF X = 16 THEN RETURN 

3470 IF score(x) > sco THEN 3460 

3480 IF score(x) = sco THEN IF level(x) > 

lev THEN 3460 

3490 : 

3500 FOR y = 15 TO X+1 STEP -1 
3510 score(y) = score(y-l) 

3520 level(y) = level(y-l) 

3530 naine$(y) = naine$(y-l) 

3540 LOCATE 6,5+y 

3550 IF y = cy THEN PEN 1 

3560 PRINT DEC$(y,” ;DEC$ (level (y) 
";DEC$(score(y),"#####");" ";name 
S(y);S PÄCES{16-LEN(nameS(y))) 

3570 PEN 2 
3580 NEXT 
3590 : 

3600 score(x) = sco 
3610 level(x) = lev 
3620 LOCATE 6,5+x:PEN 1 

3630 PRINT DECS{X,''##");". ” ;DEC$ (lev, ”##" 
); " DECS (SCO ,’•#####”); SPACES (16) 


[2406’ 

[174] 

[1546] 

[751] 

[117] 

[1707] 

[1051] 

[117] 

[841] 

[2269 

[1591] 

[3544] 

[174] 

[2165] 

[1927] 

[1446] 

[396] 

[410] 

[1643] 

[5039] 


[548] 

[350] 

[174] 

[2007 

[962] 

[855] 

[3936] 


3640 : [174] 

3650 PRINT#l:PRINT#l:LOCATE#!,1,1 [1310] 

3660 CLEAR INPUT [184] 

3670 cy = X+l: RETURN [399] 

3680 ■ [117] 

3690 ' NICHT-IN-HIGHSCORE [1509] 

3700 ' - [858] 

3710 ’ [117] 

3720 FOR X=1 TO 1000;NEXT [1282] 

3730 : [174] 

3740 PRINT#l,SPACES(2);”Good, but not good [3482] 

enough” 

3750 PRINT#1,"16. " ;DECS (lev, " ";DEC [5151] 

$(sco,‘’#####’');SPACES(5);’'Press any key"; 

3760 : [174] 

3770 CLEAR INPUT [184] 

3780 aS=INKEY$:IF aS="” THEN 3780 ELSE RET [3202] 
URN 


I --- [2207] 

2’ DREHDRISS [829] 

3 ' DATA - Lader [1087] 

4 . - [1519] 

5 • _ [1405] 

6 ■ [ 117 ] 

7 adr=&6000:zeile=21:MEMORY adr-1 [2538] 

8 badr=adr [691] 

9 pr=0:i=0 [271] 

10 i=i+l [444] 

II READ aS:IF aS=”*ENDE*" THEN GOTO 20 [1905] 

12 a=VAL(’'&"+a$) [1273] 

13 POKE adr,a:adr=adr+i [717] 

14 pr=pr*2:IF pr>65535 THEN pr=pr-65535 [2485] 

15 pr=ÜNT(pr)XOR a:IF pr<0 THEN pr=pr+6553 [1890] 

6 

16 IF i<8 THEN 10 [783] 

17 READ prS:pr2=VAL(''&''+prS) :IF pr2<0 THEN [2610] 
pr2=pr2+65536 

18 IF pr<>pr2 THEN PRINT ”Pfruefsummenfehl [3423] 
er in Zeile’'; 2 eile:END 

19 zeile=zeile+l:GOTO 9 [796] 

20 SAVE"DD .BIN'’,B,badr,&BDF [1713] 

21 DATA CD,E0,62,CD,7E,6A,CD,46,5D94 [1480] 

22 DATA 6A,CD,62,6A,CD,F2,62,CD,0909 [1861] 

23 DATA 49,69,21,26,B7,36,0A,1E,3DEA [1320] 

24 DATA 18,CD,60,62,1E,27,CD,60,34F6 [1298] 

25 DATA 62,3A,2C,60,CB,3F,D2,2D,3B2D [2557] 

26 DATA 60,C3,45,60,01,21,5D,60,OE36 [1311] 

27 DATA E5, 01,38, 60, 11,18, 69,E9, 7313 [1857] 

28 DATA El, D5,01,41,60,11,27,69,4293 [1118] 

29 DATA E9,E1,D5,18,EC,21,5D,60,50DE [1296] 

30 DATA E5,01,50,60,11,18,69,E9,7E13 [2295] 

31 DATA El,05,01,59,60,11,27,69,4313 [1546] 

32 DATA E9,E1,D5,18,EC,C5,D5,CD,52P3 [1469] 

33 DATA 40,62,Dl,1B,1B,16,12,11,2391 [1382] 

34 DATA 6C,60,E1,E9,C5,D5,1B,1B,39E1 [1574] 

35 DATA 1B,1A,13,21,6D,68,CD,5C,087E [2028] 

36 DATA 68,E1,23,46,2B,11,E4,60,0CF4 [1653] 

37 DATA 7D,FE,i8,20,O4,OE,O5,18,OOOA [1776] 

38 DATA 03,13,OE,16,78,12,CD,51,07A3 [1712] 

39 DATA 68,11,96,60,E1,E9,C5,6B,21CD [1748] 

40 DATA 62,1B,1B,1A, CD, 86,64,11,3169 [1755] 

41 DATA A4,60,E1,E9,C5,21,E4,60,5FB4 [1829] 

42 DATA 7B,06,OO,0E,3C,FB,ia,28,3EE0 [1564] 

43 DATA 05,23,06,02,OE,5E,13,1A,OB94 [1532] 

44 DATA BE,20,24,1B,EB,C5,CD,E4,5702 [2774] 

45 DATA 69,CI,FE,FF,20,19,E5,69,1437 [1097] 

46 DATA 78,OE,00,CD,34,BD,11,D9,30FF [1467] 

47 DATA 6O,D5,26,FF,3E,30,C3,20,0EE6 [763] 

48 DATA 62,E1,11,C2,61,18,03,11,043F [2254] 

49 DATA E6,60,E1,E9,C7,C7,C5,21,7D3F [1726] 

50 DATA ED,60,C3,F8,65,11,P2,60,7B88 [1565] 

51 DATA E1,E9,C5,BB,CD,E4,69,FE,5904 [1374] 

52 DATA PF,28,05,11,05,61,18,03,75AF [1423] 

53 DATA 11,25,61,E1,E9,69,60,7B,05A7 [1089] 

54 DATA FE,18,28,05,01,23,61,18,7C0E [lHO 

55 DATA 03,01,24,61,D1,D5,3E,A9,0659 [1590] 

56 DATA BB,2a,04,OA,CD,41,69,ll,500F [1574] 

57 DATA E6,60,E9, 16,16, C5,05,06,7548 [1622] 

58 DATA 05,C5,21,30,61,C3,F8,65,3571 [1404] 


82 PC 8/9’90 









































Listing—| 


59 DATA C1,10,F6,D1,21,50,61,7B,77A1 

60 DATA FE,18,28,01,23,35,7E,FE,7DDE 

61 DATA 00,28,05,11,25,61,lö,06,0B2A 

62 DATA 3E,64,77,11,52,61,E1,E9,0BCF 

63 DATA 64,64,C5,EB,CD,E4,69,FE,38C4 

64 DATA FF,20,05,11,65,61,18,03,74AF 

65 DATA 11,E6,60,E1,E9,C5,7B,FE,3744 

66 DATA 18,20,14,3A,AB,64,5F,3E,0168 

67 DATA 15,32,AB,64,3E,01,21,A8,143E 

68 DATA 64,E5,21,A2,64,lB,i2,3A,061E 

69 DATA B5,64,5F,3E,15,32,B5,64,4AEE 

70 DATA 3E,02,21,B2,64,E5,21,AC,10DA 

71 DATA 64,32,C9,63,7B,11,30,C2,22ÄE 

72 DATA CD,4A,64,ll,50,C5,El,3E,79Fa 

73 DATA 01,CD,4A,64,11,A9,61,E1,3ECF 

74 DATA E9,C5,D5,D5,CD,EE,64,01,5729 

75 DATA B6,61,D1,C3,5D,60,01,BD,5687 

76 DATA 61,Dl,C3,60,60,11,96,60,1868 

77 DATA E1,E9,7B,D1,A7,ED,52,CA,4E52 

78 DATA FD,67,D5,F5,C5,21,D3,61,75DB 

79 DATA C3,F8,65,3A,3F,62,E1,D1,51E3 

80 DATA FE,5E,28,19,7A,FE,18,28,6020 

81 DATA 05,01,23,61,18,03,01,24,005A 

82 DATA 61,0A,CB,3F,CB,3F,CD,41,2FEF 

83 DATA 69,11,C2,61,E9,E5,3E,00,2A30 

84 DATA 32,3F,62,7A,FE,18,20,10,1AEO 

85 DATA CD,46,6A,21,CA,63,3E,01,7FF1 

86 DATA CD,F7,62,21,30,FF,18,OE,5732 

87 DATA CD,62,6A,21,CA,63,3E,02,76F2 

88 DATA CD,F7,62,21,5E,PF,3E,00,5460 

89 DATA 06,18,58,06,08,50,06,16,0F7A 

90 DATA 77,23,10,FC,01,EA,F7,09,3007 

91 DATA 42,10,F2,Ol,a0,3F,09,43,3E7D 

92 DATA 10,E8,11,5D,60,E1,E9,11,34B7 

93 DATA 3A,20,60,FE,01-,28,19,78,1501 

94 DATA FE,18,28,0E,3A,DD,62,57,7ED7 

95 DATA 21,DE,62,CD,84,62,3A,DF,2293 

96 DATA 62,C9,3A,DD,62,32,DF,62,0BD4 

97 DATA 3A,01,BB,FE,5C,28,05,3A,07B0 

98 DATA B7,B1,18,03,3A,B4,B8,E6,6E66 

99 DATA 07,FE,00,28,EB,57,21,DD,381B 

100 DATA 62,7B,FE,18,28,01,23,7E,30FC 

101 DATA BA,28,DD,72,F5,7D,FE,DD,4CFD 

102 DATA 20,08,01,PC,04,21,AO,CO,1004 

103 DATA 18,06,01,20,04,21,E8,CO,OE14 

104 DATA 05,05,06,02,40,06,08,58,5530 

105 DATA 06,08,36,00,23,10,FB,43,072D 

106 DATA 11,F8,07,19,10,Fl,41,11,3427 

107 DATA 50,CO,19,10,E7,21,6D,68,iD2E 

108 DATA F1,11,35,69,1B,1B,CD,5C,7D82 

109 DATA 68,C1,21,35,69,5D,54,79,01DD 

110 DATA 86,77,23,3E,F0,86,77,23,5015 

111 DATA 23,10,F4,6B,62,1B,1S,1A,0EE0 

112 DATA CD,B6,64,F1,C9,04,01,00,4ECA 

113 DATA 3E,00,CD,OE,BC,C9,21,26,OOEO 

114 DATA B7,36,0A,F7,3E,02,CD,0E,B85C 

115 DATA BO,09,21,CA,63,3E,03,32,6714 

116 DATA C9,63,06,07,C5,5E,23,56,7BB0 

117 DATA 23,4E,23,CD,OA,63,C1,10,OAFE 

118 DATA P3,C9,ED,53,86,63,3E,46,56D6 

119 DATA e3,5F,3O,Ol,14,ED,53,08,536A 

120 DATA 63,06,05,C5,7E,23,E5,6F,3E29 

121 DATA 87,85,21,02,64,85,6F,30,671A 

122 DATA 01,24,06,03,E5,21,C9,63,OF2D 

123 DATA CB,46,B1,28,16,7E,CB,27,6A59 

124 DATA ED,5B,86,63,CD,8A,63,3E,7208 

125 DATA FF,83,5F,3E,07,8A,57,ED,5513 

126 DATA 53,86,63,E5,21,09,63,CB,0811 

127 DATA 4E,E1,28,14,7E,ED,5B,88,1B7A 

128 DATA 63,CD,8A,63,3B,FF,83,5F,16E5 

129 DATA 3E,07,8A,57,ED,53,88,63,0DA7 

130 DATA 23,10,01,ED,58,86,63,21,0357 

131 DATA 02,D0,19,22,86,63,ED,5B,303D 

132 DATA 88,63,21,02,DO,19,22,88,5EE8 

133 DATA 63,El,01,10,96,09,3A,02,1702 

134 DATA 80,D2,F5,CB,3F,CB,3F,CB,64F1 

135 DATA 3F,CB,3F,CD,A5,63,3E,FF,2257 

136 DATA 83,5F,3E,07,8A,57,F1,E6,55F8 

137 DATA OF,CD,A5,63,09,F5,E6,00,2200 

138 DATA CB,57,20,O2,F6,55,CB,5F,724D 

139 DATA 28,02,F6,AA,Al,12,13,Fl,0577 

140 DATA E6,03,CB,47,28,02,F6,55,6E21 

141 DATA CB,4F,28,02,F6,AA,A1,12,7728 

142 DATA C9,01,00,CO,F3,10,OD,16,6P14 

143 DATA 13,17,90,01,F3,12,08,00,1596 


[1977] 

[ 1210 ] 

[1801] 

[1610] 

[ 1212 ] 

[1403] 

[1639] 

[1555] 

[1457] 

[937] 

[608] 

[1665] 

[1763] 

[1354] 

[1436] 

[1158] 

[1833] 

[1118] 

[1283] 

[2107] 

[2496] 

[1680] 

[1433] 

[1915] 

[1707] 

[1073] 

[1555] 

[1589] 

[1743] 

[1290] 

[1689] 

[973] 

[1238] 

[1732] 

[ 1002 ] 

[2161] 

[1218] 

[565] 

[1788] 

[1292] 

[1959] 

[867] 

[1436] 

[1526] 

[1943] 

[1350] 

(1387) 

[1586] 

[1650] 

[2523] 

[1075] 

[1504] 

[829] 

[2817] 

[2198] 

[1672] 

[1648] 

[1389] 

[1611] 

[1785] 

[1308] 

[2013] 

[1493] 

[984] 

[1758] 

[1289] 

[1004] 

[1559] 

[1064] 

[1647] 
[1605] 
[1468] 
[ 1101 ] 
[1227] 
[1902] 
[1258] 
[1855] 
[1413] 
[2069] 
[2080] 
[ 1102 ] 
[1635] 
[1682] 
[1929] 
[1481] 


144 DATA 11,00,30,02,00,17,17,17,0785 [1995] 

145 DATA 17,O0,20,C3,F3,0E,0D,15,041F [1190] 

146 DATA OD,OE,CO,03,CO,17,17,17,1755 [1403] 

147 DATA 17,01,BO,04,F3,00,00,10,1638 [1384] 

140 DATA 00,17,50,05,00,17,17,17,0375 [2016] 

149 DATA 17,00,25,55,52,13,51,11,081F [1191] 

150 DATA 25,12,47,71,21,52,13,57,1901 [2078] 

151 DATA 11,74,61,52,34,65,52,71,1061 [1672] 

152 DATA 22,44,25,25,52,25,53,16,0444 [1906] 

153 DATA 25,57,55,25,44,52,65,55,0047 [1749] 

154 DATA 56,74,46,47,44,44,47,57,3959 [1073] 

155 DATA 25,55,65,55,55,65,56,55,0DF5 [2124] 

156 DATA 34,21,52,72,22,22,55,55,1E47 [1752] 

157 DATA 57,55,55,72,55,22,55,00,31CA [1510] 

158 DATA 00,00,86,27,77,23,3E,00,11F8 [1416] 

159 DATA 8E,27,77,23,3E,00,8E,27,42DB [1281] 

160 DATA 77,06,03,D5,11,A1,64,2B,35DF [1490] 

161 DATA 2B,7E,E6,0F,CC,84,64,12,129A [1542] 

162 DATA 1B,7E,CB,3F,CB,3F,CB,3F,0F9D [1770] 

163 DATA CB,3F,CC,84,64,12,1B,23,78FD [1860] 

164 DATA 10,E7,OE,CO,El,EB,23,23,3801 [1471] 

165 DATA CD,0A,63,C9,E5,C5,7E,E6,60D6 [1532] 

166 DATA FO,18,03,7E,PE,00,20,07,7E37 [1383] 

167 DATA 23,10,F8,3E,17,18,02,3E,0982 [1464] 

168 DATA 00,01,El,09,17,17,17,04,203E [1838] 

169 DATA 02,07,27,04,00,01,00,00,0464 [764] 

170 DATA 29,00,00,15,95,01,00,01,1170 [1597] 

171 DATA 00,00,13,00,00,15,06,04,0230 [1552] 

172 DATA 4F,C5,56,23,5E,23,23,E5,1CEF [1489] 

173 DATA EB,59,CD,1F,68,E1,C1,10,7AC6 [2098] 

174 DATA F0,C9,O6,04,56,23,7E,D6,48D6 [1786] 

175 DATA 0e,5F,23,7E,23,CB,3F,CB,12Cl [2727 

176 DATA 3F,30,10,C5,E5,D5,EB,CD,18B7 [1435] 

177 DATA 2E,68,7E,FE,00,C2,C3,67,0FC9 [2091] 

178 DATA D1,E1,C1,10,DF,C9,D5,DD,4D4B [1823] 

179 DATA 21,F0,65,DD,36,00,00,2E,2C6E [1705] 

180 DATA 0F,7B,FE,ia,20,0E,3A,F6,06BA [1882] 

181 DATA 65,06,20,32,BO,6A,1E,12,0026 [1291] 

182 DATA 16,07,18,16,3A,F7,65,C6,0AA0 [1494] 

183 DATA 20,32,Bl,6A,1E,23,16,18,0048 [1578] 

184 DATA 18,08,7D,FE,C7,28,5F,C6,08A0 [2172] 

105 DATA 0e,6F,62,E5,CD,2E,68,7E,lBAE [661] 

186 DATA E1,FE,00,28,ED,24,7C,BB,4A3B [1347] 

187 DATA 20,F1,DD,34,00,E5,FE,14,36DC [2622] 

188 DATA 3E,08,38,01,3C,OE,10,CD,1B25 [1736] 

189 DATA 34,BD,3E,OB,OE,aO,CD,34,31EE [2577] 

190 DATA BD,3E,0D,0E,0C,CD,34,BD,53C1 [1336] 

191 DATA 62,D5,7D,FE,C7,20,1A,1E,0292 [1502] 

192 DATA 00,E5,CD,IF,68,El,Dl,24,2052 [1305] 

193 DATA 7C,BB,20,ED,7D,FE,C7,28,1BA6 [2277] 

194 DATA OS,06,08,6F,18,E2,El,18,3662 [1518] 

195 DATA Bl,5D,54,C6,08,6F,CD,2E,496a [1910] 

196 DATA 68,4E,EB,59,18,DB,D1,7B,3D05 [1638] 

197 DATA FE,18,20,17,3E,08,0E,04,7DB8 [1544 

198 DATA CD,34,BD,OE,00,06,01,C5,7C1F [2109] 

199 DATA 01,23,61,11,A5,64,21,F6,0170 [1365] 

200 DATA 65,18,15,3E,09,OE,04,CD,3575 [1683] 

201 DATA 34,BD,OE,OA,06,02,05,01,3593 [1749] 

202 DATA 24,61,11,AF,64,21,F7,65,00BF [1600] 

203 DATA 3A,F0,65,86,77,FE,08,38,25A8 [1770] 

204 DATA 1A,1A,FE,10,28,15,36,00,1438 [1174] 

205 DATA 0A,D6,02,02,21,C9,63,F1,32FB [1533] 

206 DATA F5,77,3E,01,EB,11,C0,C3,66CF [1509] 

207 DATA CD,4A,64,3A,F0,65,21,F1,7D87 [1894] 

208 DATA 65,5F,16,00,19,5E,E1,7C,278E [1209] 

209 DATA 26,00,01,A2,64,Ö9,32,C9,1AA9 [723] 

210 DATA 63,7B,11,30,C2,C3,4A,64,2B8C [1447] 

211 DATA 00,00,05,11,22,55,01,00,01F6 [1687] 

212 DATA E5,CD,09,BB,El,32,3F,62,4080 [1191] 

213 DATA FE,00,28,10,4F,3E,04,CD,7945 [1369] 

214 DATA 34,BD,3E,07,OE,38,CD,34,33CE [1697] 

215 DATA BD,3A,3F,62,FE,13,CA,0B,57E3 [1813] 

216 DATA 68,FE,11,CA,FD,67,FE,03,028B [1B05] 

217 DATA CA,FD,67,FE,58,CA,CE,66,5952 [1950] 

218 DATA FE,20,CA,CE,66,FE,EO,CA,6362 [1661] 

219 DATA CE,66,FE,08,CA,D7,66,FE,64FE [1397] 

220 DATA F2,CA,D7,66,FE,09,CA,EO,51AO [1494] 

221 DATA 66,FE,F3,CA,E0,66,FE,0A,192E [2303] 

222 DATA CA,E9, 66 ,FE,Fl,CA,E9, 66 ,5974 [2275] 

223 DATA FE,OB,CA,F2,66,FE,FO,CA,6A42 [1847] 

224 DATA P2,66,4F,3A,20,60,FE,00,6BDC [2031] 

225 DATA 79,20,6A,E5,21,26,69,FE,3420 [1566] 

226 DATA 67,CC,4B,67,FE,31,CC,4B,0977 [1239] 

227 DATA 67,FE,47,CC,4B,67,FE,21,0A39 [2479] 

228 DATA CC,4B,67,23,FE,72,CC,52,7DE2 [763] 

229 DATA 67,FE,61,00,52,67,FE,52,0E42 [2092] 
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230 DATA CC,52,67,FE,41,CC,52,67,707B 

231 DATA FE,74,CC,59,67,FE,73,CC,7EFA 

232 DATA 59,67,FE,54,CC,59,67,FE,28F4 

233 DATA 53,CC,59,67,FE,36,CC,67,1107 

234 DATA 67,FE,77,CC,67,67,FE,26,0D5E 

235 DATA CC,67,67,FE,57,CC,67,67,7DE1 

236 DATA FE,35,CC,60,67,FE,7A,CC,6D30 

237 DATA 60,67,FE,25,CC,60,67,FE,3380 

238 DATA 5A,CC,60,67,E1,E9,11,FF,1001 

239 DATA FF,FD,21,B2,6A,18,48,11,4C71 

240 DATA 00,00,FD,21,7D,6B,18,3F,1FF8 

241 DATA 11,00,00,FD,21,8A,6B,18,04BE 

242 DATA 36,11,00,00,FD,21,C9,67,19D9 

243 DATA 18,2D,ES,21,A5,64,7E,FE,1D4A 

244 DATA 10,28,4E,3E,00,32,F6,65,0961 

245 DATA 3A,23,61,D6,02,32,23,61,147F 

246 DATA 11,C0,C3,3E,01,32,C9,63,2231 

247 DATA 3E,01,CD,4A,64,3A,2C,60,OlBO 

248 DATA FE,00,CC,67,67,18,2A,E5,6319 

249 DATA D5,3A,AB,64,D6,01,27,32,71E8 

250 DATA AB,64,21,18,69,19,01,34,4A3A 

251 DATA 67,C5,FD,E9,D1,3A,2C,60,15A8 

252 DATA FE,01,28,0D,CD,89,67,21,7E33 

253 DATA 27,69,19,01,49,67,C5,FD,0853 

254 DATA E9,El,E9,CD,89,67,CD,B2,59CC 

255 DATA 6A,C9,CD,89,67,CD,7D,6B,16ED 

256 DATA C9,CD,89,67,CD,8A,6B,C9,44CF 

257 DATA CD,89,67,CD,C9,67,C9,21,4297 

258 DATA AF,64,7E,FE,10,Ca,3E,00,4D7C 

259 DATA 32,F7,65,3A,24,61,D6,02,2ACA 

260 DATA 32,24,61,11,CO,C3,3E,02,1842 

261 DATA 32,C9,63,3E,01,CD,4A,64,270C 

262 DATA C9,3A,B5,64,D6,01,27,32,7C28 

263 DATA B5,64,C9,06,04,7E,81,57,5A4D 

264 DATA 23,7E,FE,C8,30,28,5F,23,ICPD 

265 DATA 23,C5,E5,D5,EB,CD,2E,68,3568 

266 DATA 7E,FE,00,20,16,El,11,07,0191 

267 DATA 00,A7,ED,52,E5,CD,2E,68,3568 

268 DATA 7E,FE,00,20,06,Dl,E1,CI,00F7 

269 DATA 10,D3,C9,E1,El,El,3E,FF,2FFP 

270 DATA C9,3E,18,BD,20,06,11,AB,6241 

271 DATA 64,1A,18,04,11,B5,64,1A,354E 

272 DATA D5,14,5A,CB,3B,38,OE,CB,699F 

273 DATA 3B,30,0A,C6,01,27,FE,00,1FC8 

274 DATA 20,03,D6,01,27,5F,E5,D5,0B4B 

275 DATA CD,E4,69,D1,El,FE,FF,7B,5AC5 

276 DATA 20,DF,Dl,12,C9,3E,07,OE,3A70 

277 DATA 3F,CD,34,BD,21,F8,BF,F9,22FF 

278 DATA C3,00,B9,E5,3E,07,OE,3F,793F 

279 DATA CD,34,BD,CD,06,BB,3E,07,7257 

280 DATA 0E,3C,CD,34,BD,E1,E9,06,1558 
201 DATA 08,E5,50,D5,CD,4A,68,D1,3D51 

282 DATA 42,Bl,2B,10,F4,C9,E5,3E,1850 

283 DATA C7,95,6F,7D,E6,07,67,AD,4BBF 

284 DATA 6F,4F,06,60,29,29,09,29,2357 
i 285 DATA CI,05,78,87,47,48,06,00,65A4 

286 DATA 09,C9,CD,2E,68,73,23,73,2F39 

287 DATA C9,06,04,79,86,77,23,23,6799 

288 DATA 23,10,F8,C9,3D,87,4F,87,05FD 

289 DATA 87,87,91,06,00,4F,09,01,712F 

290 DATA OE,00,ED,BO,C9,0C,06,05,1701 

291 DATA C7,03,06,C7,03,07,C7,03,6E79 

292 DATA 06,C7,03,33,03,06,C7,01,371F 

293 DATA 07,C7,03,08,C7,03,06,BF,3427 

294 DATA 02 ,CF, 03,06.,C7,03,07 ,C7,343D 

295 DATA 03,08,C7,01,08,BF,02,OF,19C7 

296 DATA 03,06,C7,03,07,C7,01,08,IBFE 

297 DATA C7,03,07,BF,02,C3,03,06,6B4C 

298 DATA C7,03,07,C7,01,07,BF,02,6EB8 

299 DATA 08,BF,03,03,00,07,C7,01,2A03 

300 DATA 08,C7,03,06,BF,03,07,BF,3085 

301 DATA 02,FC,FF,07,C7,01,08,C7,277B 

302 DATA 01,07,BF,02,08,BF,02,30,1408 

303 DATA 06,06,C7,03,06,C7,03,07,1970 

304 DATA C7,03,08,C7,03,30,06,09,6EED 

305 DATA C7,03,OA,C7,03,OB,C7,03,6FC9 

306 DATA 0C,C7,03,30,06,02,C7,03,3515 

307 DATA 03,C7,03,04,C7,03,05,C7,3699 

308 DATA 03,30,06,0D,C7,02,0D,C7,0B7D 

309 DATA 00,0D,C7,00,0D,C7,00,30,18E4 

310 DATA 06,01,C7,02,01,C7,00,01,1895 

311 DATA C7,00,01,C7,00,06,03,00,6FCE 

312 DATA OC,98,01,00,98,03,OB,90,24BA 

313 DATA 03,OC,90,02,06,03,00,ID,1081 

314 DATA C7,01,1E,C7,03,1C,BF,03,6D65 

315 DATA 1D,BF,02,OF,03,02,B7,03,208D 


[882] 

[1402] 

[1976] 

[1774] 

[1648] 

[1336] 

[1627] 

[1275] 

[2471] 

[1046] 

[1476] 

[2074] 

[1028] 

[1518] 

[2171] 

[1186] 

[1267] 

[1081] 

[1553] 

[1734] 

[1735] 

[2438] 

[1250] 

[2350] 

[ 1201 ] 

[1057] 

[2298] 

[1434] 

[ 1693 } 

[1567] 

[1234] 

[2049] 

[2017] 

[1773] 

[1350] 

[1400] 

[2128] 

[1892] 

[1953] 

[1142] 

[1237] 

[1187] 

[1792] 

[1783] 

[1229] 

[2007] 

[2475] 

[1902] 

[1680] 

[1665] 

[1984] 

[1088] 

[1540] 

[1595] 

[2225] 

[1785] 

[ 1220 ] 

[1752] 

[1647] 

[936] 

[ 2120 ] 

[1729] 

[685] 

[1881] 

[1563] 

[1277] 

[980] 

[1645] 

[1487] 

[916] 

[ 668 ] 

[1938] 

[1311] 

[968] 

[1319] 

[1547] 

[2179] 

[2416] 

[1162] 

[1522] 

[1579] 

[1168] 

[2087] 

[1692] 

[1053] 

[1364] 


316 DATA 03,B7,01,04,B7,03,03,AF,293D [1906] 

317 DATA 02,06,40,10,FE,3D,20,F9,OE3D [1391] 

318 DATA C9,06,05,C5,78,H,16,69,6A31 [2324] 

319 DATA 21,CF,68,CD,5C,68,21,18,2ieA [1809] 

320 DATA 69,OE,05,CD,51,68,CI,78,39A2 [1154] 

321 DATA C5,11,25,69,21,CF,68,CD,66D9 [848] 

322 DATA 5C,68,21,27,69,OE,16,CD,31C1 [1942] 

323 DATA 51,68,3A,16,69,21,18,69,3735 [1685] 

324 DATA CD,B6,64,3A,25,69,21,27,44C9 [1176] 

325 DATA 69,CD,B6,64,06,C0,C5,21,15DB [1643] 

326 DATA 18,69,CD,E4,69,21,27,69,024B [1163] 

327 DATA CD,E4,69,CI,78,FE,64,28,5E68 [1515] 

328 DATA 10,10,EB,3E,FF,CD,41,69,L6A7 [2096] 

329 DATA 3E,FF,CD,41,69,C1,10,A3,3DBF [1578] 

330 DATA C9,F1,F5,FE,01,20,EA,C5,4819 [1083] 

331 DATA 3E,FF,CD,41,69,21,17,69,3EFB [1423] 

332 DATA CD,B2,6A,21,26,69,CD,B2,44EC [1377] 

333 DATA 6A,3E,PP,CD,41,69,21,17,2A49 [2193] 

334 DATA 69,CD,B2,6A,21,26,69,CD,16AF [2168] 

335 DATA B2,6A,CD,09,BB,FE,00,28,5CB8 [1795] 

336 DATA D7,3E,03,32,lA,69,32,29,6679 [1607] 

337 DATA 69,CI,18,B5,E5,CD,CA,64,097C [845] 

338 DATA FE,FF,Dl,C8,7B,FE,18,20,5650 [1796] 

339 DATA OF,21,BO, 6 A,34,7E,E6,F 8 ,lEOC [2148] 

340 DATA 4F,3E,00,CD,34,BD,18,0D,27B9 [1259] 

341 DATA 21,B1,6A,34,7E,E6,F8,4F,3317 [1766] 

342 DATA 3E,02,CD,34,BD,3E,07,OE,0070 [1603] 

343 DATA 3C,CD,34,BD,6B,62,IB,IB,22ED [2800] 

344 DATA lA,4F,06,04,C5,56,23,5E,1928 [1215] 

345 DATA 23,46,E5,EB,CB,38,30,09,14C1 [2459] 

346 DATA C5,E5,lE,00,CD,4A,68,El,5F71 [1088] 

347 DATA CI,CB,38,30,08,7D,D6,08,5650 [989] 

348 DATA 6F,59,CD,4A,68,E1,2B,35,3C67 [1631] 

349 DATA 23,23,CI,10,D7,C9,21,A2,051C [1231] 

350 DATA 64,06,09,36,00,23,10,FB,3197 [2028] 

351 DATA 36,15,3E,01,32,A5,64,3E,1A62 [1491] 

352 DATA 16,32,23,61,3E,00,32,F6,0492 [1132] 

353 DATA 65,C9,21,AC,64,06,09,36,ODBC [1200] 

354 DATA 00,23,10,FB,36,15,3E,01,04E9 [1482] 

355 DATA 32,AF,64,3E,16,32,24,61,3DF1 [1131] 

356 DATA 3E,00,32,F7,65,C9,3E,01,1641 [2129] 

357 DATA OE,00,CD,34,BD,3E,03,OE,18F8 [2442] 

358 DATA 00,CD,34,BD,3E,05,OE,00,3FE8 [1636] 

359 DATA CD,34,BD,3E,08,OE,04,CD,7F7D [1842] 

360 DATA 34,BD,3E,09,0E,04,CD,34,33DE [1150] 

361 DATA BD,3E,OA,OB,O8,CD,34,BD,5301 [1197] 

362 DATA 3E,OC,OE,00,CD,34,BD,C9,lACB [1393] 

363 DATA 50,20,7E,FE,FF,C8,23,5F,24E1 [1215] 

364 DATA 7D,FE,18,3E,00,28,02,3E,017A [1383] 

365 DATA 02,OE,20,CD,34,BD,CD,BA,0824 [1503] 

366 DATA 6B,E5,DD,El,16,00,19,56,19A4 [1638] 

367 DATA 23,5E,06,04,DD,E5,El,C5,02FB [1584] 

368 DATA DD,E5,46,23,4E,79,93,CB,5F49 [1313] 

369 DATA 2F,CB,2F,CB,2F,82,48,47,2FB7 [1851] 

370 DATA 7A,91,87,87,B7,83,4F,DD,07A7 [1464] 

371 DATA E1,D5,DD,E5,D1,A7,BD,52,55AC [1818] 

372 DATA D5,11,35,69,19,71,28,70,6FDA [2081] 

373 DATA CI,09,11,CE,96,19,C5,DD,6983 [1730] 

374 DATA El,D1,C1,10,CA,DD,ES,El,59EF [1665] 

375 DATA E5,3E,00,CD,B6,64,CD,C8,74A2 [1184] 

376 DATA 6B,OE,00,21,35,69,CD,93,3515 [1345] 

377 DATA 67,FE,FF,El,DD,7E,FE,CA,1BD6 [1676] 

378 DATA B4, 6 B,E5,CD,BA, 6 B,01,OC,54C2 [1075] 

379 DATA 00,D1,DS,21,35,69,ED,B0,2D96 [1662] 

380 DATA 06,04,E1,OE,03,C5,06,04,1DC4 [1688] 

381 DATA DD,E5,D1,1A,BE,20,17,7D,4963 [1512] 

382 DATA BB,28,13,23,13,lA,IB,BE,57A8 [1335] 

383 DATA 2B,79,30,02,18,05,E6,FE,0C06 [1698] 

384 DATA 4F,18,03,E6,FD,4F,13,13,2961 [1829] 

385 DATA 13,10,EO,79,C1,23,23,77,10A5 [1490] 

386 DATA 23,10,D0,DD,E5,El,DD,7E,0738 [1199] 

387 DATA FE,CD,B6,64,DD,E5,El,CD,58B3 [1328] 

388 DATA C 8 , 6 B,3E,00,C9,B5,CD,BA,7DFC [1899] 

389 DATA 6B,3E,00,CD,B6,64,OE,FF,3213 [1613] 

390 DATA 1B,0B,E5,CD,BA,6B,3E,00,1AB0 [2097] 

391 DATA CD,B6,64,OE,01,E1,E5,CD,45EB [2372] 

392 DATA 93,67,FE,FF,E1,28,0D,E5,4727 [1763] 

393 DATA 06,04,7E,81,5F,73,23,23,0681 [1631] 

394 DATA 23,10,F7,El,CD,C8,6B,5D,00B3 [1421] 

395 DATA 54,IB,IB,lA,CD,B6,64,3E,2Ä46 [1971] 

396 DATA 00,C9,7D,FE,18,3E,08,28,3200 [1360] 

397 DATA 01,3C,OE,0F,CD,34,BD,C9,09BB [1845] 

398 DATA 7D,FE,18,3E,08,28,01,3C,013E [1820] 

399 DATA OE,04,CD,34,BD,C9,CA,97,1B2F [2016] 

400 DATA C9,C0,BC,BA,C2,45,C9,00,4E36 [1816] 

401 DATA *ENDE* [502] 
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Tips & Tricks—i 


Disctimer 

# # 

Organisiertes überspielen 
von CDs 

Wer ab und zu eine CD auf Kassette überspielt, um 
diese zum Beispiel im Auto oder mit dem Walkman 
anzuhören, ärgert sich bestimmt oft darüber, daß er 
nicht alles auf einer Seite der Kassette unterbringen 
konnte und daß das letzte Lied in der Mitte unter¬ 
brochen wurde. Unser Programm Disctimer kann Ihnen 
bei der Organisation behilllich sein. 

Das Programm Disctimer ist dazu gedacht. Ihnen den organi¬ 
satorischen Teil beim Überspielen abziinehmen. 

Nach dem Starten mit RUN^DISCTIME“ erscheint auf dem 
Bildschirm eine Schallplatte mit drei Fenstern. Das oberste 
enthält die Zeit des Jeweiligen Liedes, dessen Nummer in 
dem untersten Fenster angezeigt wird. In der Mitte wird die 
Spieldauer angezeigt, die sich aus der Summe der Zeiten von 
eins bis zur angezeigten Liednummer ergibt. Mit den Cur¬ 
sortasten links und rechts kann man nun die Liednummer er¬ 
niedrigen oder erhöhen und — sofern für das entsprechende 
Lied schon Daten existieren - wird die Zeit, die der Titel be¬ 


ansprucht. angezeigt. Sollten Sie alle Lieder eingegeben ha¬ 
ben und zum Beispiel mit der zweiten Seite fortfahren wol¬ 
len. so drücken Sie die Taste ’N’. Das Programm wird nun 
neu gestartet. Ist dies nicht der Fall, und Sic wollen noch wei¬ 
tere Lieder cingeben. so drücken Sie die Taste T’. und Sie 
können die Spieldauer des Liedes in der Form 'HH:MM:SS’ 
eingeben. Bei einer Spieldauer von neun Minuten und 18 Se¬ 
kunden '00:09; 18’. Da ein Lied jedoch selten länger als neun 
Minuten dauert, wurden folgende Tasten umbelegt: 

Punkt unterhalb Zehnerblock -> 00: 

Kleine Enter-Taste -> 00:0. 

Dadurch wurde die Eingabe der Spielzeit wesentlich verein¬ 
facht. Um nun also ein Lied mit der Spieldauer von drei Mi¬ 
nuten und 17 Sekunden einzugeben, drücken Sie zuerst T. 
die kleine Enter-Taste und zu guter Letzt '3; 17'. Ist die Ein¬ 
gabe getätigt, springt der Zähler automatisch um eins weiter, 
und Sie können mit dem nächsten Lied fortfahren. 

Ist Ihnen aufgefallen, daß Sie einen Wert falsch eingegeben 
haben, ist das auch kein Problem. Wählen Sie hierbei mittels 
der Cursortasien nur das entsprechende Lied an. und drücken 
Sie 'C. Der Inhalt des Feldes wird nun gelöscht und kann 
neu eingegeben werden. 

(Andreas Milde/rs) 


Info: Auf def» CPC 464 ist diifsex Profiramm nur in Verbindung mit dem Eniidainr luuf- 
fähin- Du im Profirumm der Btfehi ’Clear Iniuu' ver^’eiiäet virri. .sollten Sie das Pro¬ 
gramm int ASClI-Fonnu! ubspeifhern. 


für 464-664-6128 

I 



90 MODE 1:INK 0,13:INK 1,24:INK 2,0:INK 3, [8401] 
6 :BORDER 13rCLEAR:2=1:DIM tS(600):FOR i=l 
TO 600:t$(i)="00:00:00":NEXT:s$=”00:00;00" 


:KEY 138,"00:":KEY 139/’00:0’' 

130 ORIGIN 320,200 [215] 

140 p=2 [263] 

150 FOR X=0 TO 0.71*190 STEP 2 [960] 

160 y=SQR(36100-x‘2) [1411] 

170 GOSUB 260 [929] 

180 NEXT [350] 

190 p=3 [266] 

200 FOR X=0 TO 0.71*65 STEP 2 [1136] 

210 y=SQR(4225-x*2) [1495] 

I 220 GOSUB 260 [929] 

I 230 NEXT [350] 


■ 240 MOVE 99,0:FILL 2:MOVE 0,0:FILL 3:GOTO [1299] 
[ 270 

260 PLOT X,y,p:PLOT -X,y:PLOT -X,-y:PLOT X [5565] 
,-y:PLOT y,x:PLOT -y,x:PLOT -y,-x:PLOT y,- 
x: RETURN 

270 LOCATE 1,21:PRINT CHRS(243); "->VOr" :PR [8847] 
INT CHRS (242); "->zurueck;": PRlNT”N->Neustar 
t”:PRINT'*I->Input zeit" :PRINT"C->Zeit loes 
Chen" 

310 LOCATE 17,5:PRINT tS(Z):TAG:MOVE -63,6 [2990] 
,1:PRINT sS; 

320 IF 2>99 THEN 2$=RIGHTS(STRS(z),3) ELSE [4399] 
IF 2>9 THEN Z$=STRS(Z) ELSE 2$=" "+STR$(Z 

) 

330 MOVE -20,-120:PRINT zS;:TAGOFF [1857] 

370 IF INKEY{8)=0 THEN CLEAR INPUT:GOSUB 5 [2142] 
50:GOTO 460 

380 IF INKEY{1)=0 THEN CLEAR INPÜT:GOSÜB 6 [2274] 
40:GOTO 460 

390 IF INKEY(35)=0 THEN CLEAR INPUTiGOSUB [3444] 
730:z=2+l:GOTO 460 

400 IF INKBy(62)=0 THEN CLEAR INPÜT:GOSUB [2998] 
830:GOTO 460 


410 IF 1NKEY(46)=0 THEN CLEAR INPUTlRUN [843] 
420 GOTO 370 [466] 

460 IF Sh=0 THEN sh$="00" ELSE shS=STRS(Sh [2094] 

470 IF Sin=0 THEN smS="00" ELSE S]H$=STR$(sm [2833] 

480 IF Sin<10 THEN Sin$ = "0'’+RIGHTS (smS , 1) [1763] 

490 IF SS=0 THEN SS$='’00‘’ ELSE SS$=STR$(ss [818] 

500 IF SS<10 THEN SSS="0'’+RIGHT$ (ssS , 1) [1987] 

510 s$=RIGHT$(sh$,2) + ":’'+RlGHT$(sin$,2)+":" [3318] 
+RIGHT$(SS$,2):GOTO 310 

550 2=2-1 [746] 

560 IF z<l THEN 2=1:GOTO 600 [1111] 

570 SS=SS-VAL(RIGHTS(t$(z+l),2)):IF SS<0 T [3350] 
HEN ss=ss+60: sm=srn-l 

580 sro=Sin-VAL(MIDS(tS(z+l) ,4,2)) :IF sin<0 T [4105] 
HEN sm=sin+60:sh=sh-l 

590 sh=sh-VAL(LEFTS(t$(z-H),2)) [485] 

600 RETURN [555] 

640 2=2+1 [702] 

650 IF 2>600 THEN z=6O0:GOTO 690 [899] 


660 SS=SS+VAL(RIGHT$(tS(z),2)):IF SS>=60 T [4873] 
HEN ss=ss-60:sin=sm+l 

670 sm=sm+VAL(MIDS(tS(Z),4,2)):IF srR>=60 T [2392] 
HEN sm=sm-6 0:sh=sh+1 


680 sh=sh+VAL(LEFTS(t$(z),2)) [1264] 

690 RETURN [555] 

730 LOCATE i7,5:PRINT" " [1611] 

740 IF tS(z)<>"00:00:00" THEN GOSUB 830 [1798] 

750 LOCATE 17,5:INPUT"",t$(Z> [998] 

760 IF LEN(tS(z))=7 THEN tS[z)="0"+tS(z) [2042] 

770 hh=VAL(LEFT$(tS(z>/2)):hm=VAL(MIDS(tS( [4071] 

2 ),4,2)):hs=VAL(RIGHT$(tS(z),2)) 

780 IF hh>l OR hin>=60 OR hs>=60 THEN 730 [1114] 

790 GOSUB 660;RETURN [1232] 


830 ss=ss-VAL(RIGHT$(t$(«),2)):IF ss<0 THE [2583] 
N ss=ss+60:srn=sir-l 

840 sm=sni-VAL(MID$(tS(z) ,4,2)) :IF sm<0 THE [3018] 
N sin=sm+60:sh=sh-l 

850 sh=sh-VAL(LEPTS(t$(z),2)):tS(z)="00:00 [874] 
: 00 " 

860 RETURN [555] 


Listing DISCTIMER 


Listing DISCTIMER 
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Tips & Tricks 



Die Heraus- 


100 DM 
für 1 kByte 


forderung 


Wieder einmal möchten wir Ihnen qualitativ hochwerti¬ 
ge Software innerhalb der l-kByte-Grenze vorstellen, 
die - ob sie nun nur ein kleines Hilfs- oder ein Spielpro¬ 
gramm darstellt - sicherlich in irgendeiner Weise bei 
Ihnen Verwendung finden kann. 

Viele nette Programme wurden bisher verölTcntlicht, und es 
Ist gar nicht so einfach, unter der Flut der uns zugesandten 
Programme zu entscheiden, w'elchcs nun ins Hell kommt und 
weldies nicht. Trotzdem glauben wir, eine recht gute Wahl 
getroffen zu haben, und fangen hier gleich mit der Beschrei¬ 
bung der Programme an. 


Grafikdruck 


□ 


Infos 


Mit Infos können Mitteilungen an Freunde oder andere User 
geschrieben werden. Diese können sich die Mitteilungen 
dann auf dem Bildschirm ansehen. Die Darstellung der Mit¬ 
teilung läßt sich dabei auf verschiedene Arten verändern. 


Benutzung 

Will man einen Text lesen, so muß man direkt nach dem Pro- 
m ammsiart die Taste 'V drücken. Danach wird das Directo¬ 
ry der Diskette angezeigt. Es erscheinen aber nur die Datei¬ 
en. die die Endung MNF' haben. Jetzt muß man den ge¬ 
wünschten Dateinamen eingeben. Fchleingaben werden 
hierbei bis zu einem gewissen Grad abgefangen. Ist dieser 
Vorgang beendet, lädt Infos den Text ein und stellt ihn da¬ 
nach auf dem Bildschirm dar. Ist das Ende des Textes er¬ 
reicht, wartet das Programm einige Zeit und fängt dann wie¬ 
der von vorne an, den Text auszugeben. 

Will man einen Text schreiben, gibt man im Titelbild 'S’ ein. 
Jetzt wird der Bildschirm gelöscht, und in der linken oberen 
Ecke erscheint der Cursor. Nun kann mit dem Schreiben be¬ 
gonnen werden. Das Programm merkt sich jetzt jeden Ta¬ 
stendruck, also sollte man etwas langsamer als gewohnt 
schreiben, da auch Schreibfehler gemerkt werden. 


Mit diesem kurzen Programm können Sie Grafiken aut dem 
Papier ausdrucken. Programme, die dies können, wurden 
schon zur Genüge vcröffentliehl. dieses hat jedoch einige be¬ 
merkenswerte Vorteile. 

Als erstes soll hier auf jeden Fall darauf hingewiesen wer¬ 
den, daß durch die Programmierung in BASIC jeder die 
Möglichkeit besitzt, das Programm - wenn überhaupt nö¬ 
tig - individuell an seinen Drucker anzupassen. Getestet 
wurde es auf einem Seikosha SP-180AI sowie auf einem 
NEC P6. Es dürfte daher auf jedem Epson-kompatiblen 
Drucker funktionieren. 

Ein weiterer Vorteil dieses Programms ist, daß cs speziell für 
Grafiken aus dem Modus eins geschrieben wurde. Die vier 
Farben dieses Modus werden vom Programm auf dem 
Drucker in verschiedenen Schattierungen ausgcdruckl. Be¬ 
sonders bei Apfcimännchen-Grafiken kommt dies zur Gel¬ 
tung. 

(C. Laube/rs) 


Bei der Texlcingabc können auch die Control-Codes 0 bis 31 
benutzt w-erden. Auf diese Weise lassen sich viele interessan¬ 
te Effekte erzielen. So kann man zum Beispiel Texte unter¬ 
streichen und durchstreichen, invertieren, Zeilen löschen 
und vieles mehr. Die Funktionen der Control-Codes sind im 
Handbuch des CPC beschrieben. Da die Zuordnung der 
Codes zu den Tasten im Handbuch des 464 nicht stimmt, hier 
die Tabelle in Kurzform; 


Code 

CTRL-K 

0 

Klammeraffe 

1 

A 

26 

Z 

27 

Eckige Klammer auf 

28 

Backslash 

29 

Eckige Klammer zu 

30 

Potenzierungspfeil 

31 

0 


Catch 


Das Spiel Catch ist dem Schlußspiel der Fernsehsendung 
'Vier gegen Willy’ nachempfunden. Ihre Aufgabe ist es, mit 
Ihrer Spielfigur (dem Quadrat) die Figur des Gegners (den 
Smilic) zu längen. Dies erreichen Sie. indem Sie Ihre Figur 
mittels der Cursorlasten auf die Figur des Gegners bewegen. 
Diese hüpft zufallsgestcuert auf den Feldern des Bildschirms 
herum, was Ihre Aufgabe erheblich erschwert. Sollte es Ih¬ 
nen gelingen, den Smilie zu fangen, erhalten Sie Punkte, 
welche sich aus der Differenz vom Anfangsbe¬ 
stand 100 und der Schrittanzahl berechnen. 
Daraus folgt, daß auch negative Punkt¬ 
zahlen möglich sind. Es ist also 
empfehlenswert, den Computer so 
schnell wie möglich zu fangen (An¬ 
merkung der Redaktion: Willy GO!) 

(Marc Gebauer/rs) 




Ahhililuii}( I: 'Zxkhiulf' lassen sich aiiscluiiiliilie Grafiken ersrelleii 
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AhlnJiliiiiii 2: Ente die Sie \ielier ein i\'eilelieii l>e.\eli<ij- 

ligc/i teird 


Zur leichteren Eingabe sind einige Codes zusätzlich auf an- 


dere Tasten gelegt worden: 


Taste 

Normal 

+ CTRL 

Cursor links 

8 

17 

Cursor rechts 

9 

18 

Cursor hoch 

11 

19 

Cursor runter 

10 

20 

COPY 

7 

24 

DEL 

12 

30 

ENTER 

13 

13 

CLR 

16 

16 

TAB 

9 

9 


Hat man jetzt seinen Text fertig eingegeben, so kann man die 
Eingabe mit ESC beenden. Danach gibt man einen Dateina¬ 
men ein. und der Text wird gespeichert. 

Besitzt man keine Floppy, so muß der Befehl 'DIR' in Zeile 
180 gelöscht werden. 

(Wolfgang Noi.stering/rs) 


Zykloide 


Rollt ein Kreis an einem festen zweiten Kreis ab. dann be¬ 
schreibt ein mit dem rollenden Kreis verbundener Punkt eine 
Zykloide. Rollt der Kreis außen auf dem festen Kreis, heißt 
die Kurve Epizykloide, rollt er innen, Hypozykloide. 

Je nach dem Verhältnis der Radien des festen und des rollen¬ 
den Kreises und der Lage des ’malenden’ Punktes zum rol¬ 
lenden Kreis ergibt sich eine ungeahnte Vielfalt von reizvol¬ 
len Grafiken. Und hier springt das Programm ein. 

Die Eingabeparameter sind: 

•die Art der Zykloide (E für Epizykloide. H für Hypozy¬ 
kloide) 


Wichtig: In den Listings vorkomniende Zei¬ 
chen £ sind durch # /u ersetzen! 


für 464-664-6128 



L'Sling Gralikdruck 

70 MODE 1:INK 0,0:INK 1,26:PÄPER 0:PEN 1:B [2082] 
ORDER 0 

80 LOCATE 15,2:PRINT"GRAPHIKDRUCK'' [1162] 

90 LOCATE 15,3:PRINT STRINGS(12) [1781] 

100 LOCATE 5,6:PRINT"(Benoetigt C.a. 20 Mi [3349] 
nuten fuer" 

110 LOCATE 13,7:PRINT"einen Ausdruck)" [2322] 


• R als Verhältni.s der Radien des fe¬ 
sten und des rollenden Kreises 

• P für die Lage des Punkte.s (P= I _ - 

auf dem Kreis, P<1 innen, • 

p>l außen) v/ ;5 ^ 

• G ist die Rollschriltweite in Grad, in \ ' 

gewisser Weise also auch ein Maß für die 
Zeichengeschwindigkeit. 

Durch das Drücken einer beliebigen Taste ist das Zeich¬ 
nen der Kurve zu stoppen und die Eingabe neuer Parameter 
möglich, wobei die vorherigen zum Vergleich noch sichtbar 
bleiben. Das Programm ist so angelegt, daß die Grafik im¬ 
mer formatfüllend ist. Aus diesem Grunde mußte der Fall 
Hypozykloide mit R< 1 (größerer Kreis rollt innen am klei¬ 
neren ab) ausgeschlossen werden. Der Faktor 1.09 in den 
Zeilen 140 und 160 sorgt dafür, daß Kreise wirklich als Krei¬ 
se dargestellt werden. Dieser Faktor ist eventuell bei Ihnen 
zu ändern. 

Hier nun einige Parametervorschläge: 

E. 1,1,3 Kreis mit Punkt auf dem Umfang rollt außen auf 
gleichgroßem Kreis ab (noch am einfachsten vor¬ 
zustellen) 

H,5.1,3,2 Kreis mit Punkt außerhalb rollt innen an einem 
fünfmal so großen Kreis ab 
H,5.5.21 Noch zykloidenähnlich 

H,5,6,37 Nur noch schön (Martin Geislcr/rs) 

Boot 

Mit Ihrem U-Boot sitzen Sie in der Tiefe des Meeres auf der 
Lauer. Endlich, die feindliche Schiffe fahren über Ihnen ent¬ 
lang. in Richtung Ihrer Heimat, um dort sämtliche Häfen zu 
zerstören. Sie übernehmen nun bei einer atemberaubenden 
Verfolgungsjagd den Platz des Kanoniers. 

Mit den Tasten ’x' und ’z’ steuern Sie das Fadenkreuz der 
Kanone nach links und rechts. Mit SPACE können Sie einen 
Torpedo abicuern. 

Beim CPC 464 muß vor dem Programmstart der Emulator 
geladen sein. (Petr Poiuznik/rs) 

Luft 


Das Programm Luft stellt eine Miniversion des in der Ausga¬ 
be 3/89 erschienenen Dominatc dar. Hierbei geht es daruni, 
daß Sic mit Ihrem Heißluflballon von einer Plattform auf eine 
andere gelangen müssen. Dies hört sich wieder einmal leich¬ 
ter an. als cs ist. da zwischen der Startplattform und dem Ziel 
leider ein kleiner Berg ist. den Sic umfliegen tiiüs.sen. 

Zur Steuerung benutzen Sie folgende Tasten: 

• 1 .Brenner dazugeben 

• 2.Brenner wegnehmen 

• SHIFT .. Sandsack abwerfen 


• SPACE .. Luft aus dem Ballon lassen 
Lauffähig ist dieses Programm auf dem CPC 464 nur mit 
dem Emulator, da CPC-6l28-spezifi.sche Befehle benutzt 
werden. (Petr Poluznik/rs) 


120 PRINT:PRINT:PRINT 

130 LINE INPUT "Bildname : ";aS 

140 MODE l:LOAD ""+-a$,&C000 

150 PRINT£Q,CHRS(27);"A";CHRS(1) 

160 FOR y%=398 TO 0 STEP-2 

170 PRINT£8,CHR$(27);"L";CHR$(127);CHR$(2) 

f 

180 FOR X%=0 TO 630 STEP 2 
190 IF TEST(x%,y%)=0 THEN w%=0:q%=0 

200 IF TEST(xl,y%)=l THEN w%»l:q%=0 

210 IF TEST(x%,y%)=2 THEN w%=l;q%=2 

220 IF TEST(x%,y%)=3 THEN w%=3:q%=3 

230 PRINT£0,CHRS(w%);CHRS(q%); 


[1082]~] 

[2683J 

[1459] 

[1985] 

[1574] 

[2335] 

[1609] 

[ 1110 ] 

[ 1102 ] 

[1651] 

[2134] 

[2016] 
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Lisiiny Ca<c>> 

2 MODE. ilSYMBOL 252,3,12,16,38,70,64,128,1 [11622] 
28:SYMBOL 253,192,48,8,100,98,2,1,1:SYMBOL 

254,128,132,71,67,33,16,12,3:SYMBOL 255,1 
,33,226,194,132,8,48,192:DEFSTR a,C-e,z:z= 

STRINGS(2,8)+CHR$(10):C=CHR$(25 2 ) + CHRS(253 
)+Z+CHR$(254)+CHRS(255) 

3 d=STRINGS(2,32)+z+STRrNGS(2,32):e=STRING [10045] 
$(2,143)+Z+STRINGS(2,143):f=0:FOR g=8 TO 6 

32 STEP 48:MOVE g,8:DRAW g,392:MOVE 8,g:DR 
AW 632,g:NEXT:h*2:i=2:j=38:k*23:GOSUB 17:G 
OSUB 18:EVERY 50 GOSUB 12 

4 a=INKEYS:rF a<CHRS(240)OR a>CHRS(243)THE [3183] 
N 4 

5 GOSUB 15:IF ASC{a)*240 AND i>2 THEN i=i- [2952] 

3 


6 IF ASC(a)=241 AND i<23 THEN i=i. + 3 [1577] 

7 IF AScU} = 242 and h>2 THEN h=h-3 [1705] 

8 IF ASC(a)=243 AND h<38 THEN h=h+3 [2119] 

9 GOSUB 17:IF(h=j)AND(i=k)THEN 11 [3039] 

10 f=f+llGOTO 4 [1072] 

11 g=REMAIN(0}:l=100-f:LOCATE 16,3:PRINT"G [6961] 
ewonnen"rLOCATE 15,5:PRlNT"Score :"1:CALL 
&BB18:CLS:GOTO 3 

12 GOSUB 16 [906] 

13 j=INT(RND*13)*3+2:k=INT(RND*6)*3+2:IF(j [2984] 
=h)AND(k=i)THEN 13 

14 GOSUB 18:RETURN [1186] 

15 DI:LOCATE h,i:PRINT d:EI:RETURN [2253] 

16 DIiLOCATE j,k:PRINT dtEIiRETURN [1680] 

17 DI:LOCATE h,i:PRINT e:EI:RETURN [2281] 

18 DIiLOCATE j,k:PRINT c:EI:RETURN [2542] 


Lisiino Infos 

20 DIM aS(199):MODE 1:PEN 2:LOCATE 13,10:P [5110] 
RINT CHRS(164)” by TERRA-SOFT" 

30 LOCATE 10,4:PRINT CHRS(24)SPACE${22):L0 [4095] 
CATE 10,6:PRINT SPACE$(22) 

40 PAPER l:LOCATE 10,5:PRINT" INFOS [3997] 
V 2 . 0 '’CHRS(24) 

50 PEN l:LOCATE 8,24:PRINT"[L]esen oder [S [5601] 
]chreiben ?" 

60 aS=LOWERS(INKEYS):IF aS="s"THEN 110 ELS [3312] 
E IF aS<>"l"THEN 60 

70 GOSUB 180:OPENIN a$:INPUTL9,a:FOR i=0 T [4168] 
O aiLINE INPUT£9,aS(i);NEXT:CLOSEIN 
80 CLStFOR i=0 TO a:FOR j=l TO LEN(aS(i)} [2771] 
90 PRINT CHR$(ASC(MID$(aS(i),j,1))-32);:CA [4010] 
LL &BB81:FOR k=l TO 100:NEXT 

100 NEXT:NEXT:FOR i=i TO 25000:NEXT:CALL & [3363] 
BBFF:CALL &BB4E:GOTO 80 

110 CLS:KEY DEF 0,1,11,11,19:KEY DEF 1,1,9 [4348] 
,9,18:KEY DEF 2,1,10,10,20 

120 KEY DEF 8,1,8,8,17:KEY DEF 9,1,7,7,24: [3572] 
KEY DEF 79,1,12,12,30:CALL S.BB48 
130 CALL &BB81:WHILE a<200:FOR j=l TO 250 [587] 

140 aS=INKEY$:IF a$=""THEN 140 ELSE IF ASC [3229] 
(aS)=252 THEN 160 

150 PRINT aS;:CALL &BB81:aS(a)=aS(a)+CHRS( [3438] 
ASC(a$) + 32);NEXT:a=a+l:WEND 

160 CALL &BB00:CALL 5iBB06:GOSUB 180 [1686] 

170 OPENOÜT aS:PRINTC9,a:FOR i=0 TO a:PRIN [3700] 
T£ 9,aS(i):NEXT:CLOSEOÜTlRUN 

180 CALL &BBFF:CALL &BB4E:aS="*.INF":|DIR, [2531] 

gaS 

190 WHILE MlDS(a$,2,l)<"A":INPüT"Dateinaine [1978] 
";aS 

200 a$="l"+LEFTS(LEFT$(aS,8-(9-INSTR(aS,". [4480] 
"))MOD 9),8)+".INF":WEND;RETURN 


MslingZyklotde 

20 ' [117] 

30 MODE 2:WINDOW £1,1,80,25,25:DEG [3347] 

40 LOCATE£l,45,l:INPUT £1,;"Eing.(E/H),R,P [3953] 
,G";z$,a,b,g:CLS:LOCATE £1,1,1 

so Z$=UPPER$(Z$) :IF a<»0 OR b<=0 OR g<=0 0 [3540] 
R zS="H" AND a<=l THEN 40 

60 IF zS="E" THEN PRINT£1,"EPIZYKLOIDE [3948] 

t=l:GOTO 80 

70 IF ZS="H" THEN PRINTEI,"HYPOZYKLOIDE";: [3979] 
t=2 ELSE GOTO 40 

80 PRINTEI," R:";a;" P:";b;" G;";g [2434] 

90 C=190:ORIGIN 320,208:i=0:ON t GOSUB 130 [3639] 
,150:MOVE x,y 

100 FOR i=0 TO 10000000/(a+l) STEP g:ON t [2932] 
GOSUB 130,150:DRAW x,y 


110 za$=INKEYS:IF zaS<>"" THEN 40 [1871] 

120 NEXT:GOTO 40 [983] 

130 y=(c/(a+b+l))*((a+l)*SIN(i)-b*SIN{(a+l [2722] 

)*i)) 

140 x=1.09*(c/(a+b+l))*((a+l)*COS(i)-b*COS [3135] 
((a+l)*i)):RETURN 

150 y=(c/(a+t)-l))*((a-l)*SIN(i)-b*SIN((a-l [1679] 

)*i)) 

160 x=i.09*(c/(a+b-i))*((a-i}*coS(i)+b*cos [2742] 
((a-l)*i));RETURN 

170 END [110] 


Listing Booi 

10 DIM bS(2):INK 1,26:INK 2,11:INK 3,0:SYM [12773] 
BOL AFTER 245:SPEED KEY l,l;SYMBOL 245,0,0 
,0,0,0,57,31,15:SYMBOL 246,1,33,35,51,127, 

255,255,255:SYMBOL 247,0,4,6,204,252,255,2 

55,255:SYMBOL 248,0,0,0,0,32,236,252,248:8 

YMBOL 249,0,119,65,73,28,73,65,119 

20 SYMBOL 250,0,0,0,0,0,15,63,31:SYMBOL 25 [10809] 

1,0,0,1,7,255,255,255,255:SYMBOL 252,128,1 

30,130,227,255,255,255,255;SYMBOL 253,0,0, 

0,192,192,254,252,240:bS(l)=CHR$(250)+CHRS 
(251)+CHR$(252)+CHR$(253):bS(2)=CHR$(245)+ 

CHRS(246)+CHR$(247)+CHRS(248) 

30 ENV l,2,2,l,15,-l,7:c$=" "+CHRS(249)+" [8648] 

":MODE ItWINDOW f1,1,40,1,3:PAPER £1,2:C 
LS £l:GRAPHICS PAPER 2:LOCATE 3,24:PRINT " 

Score: 0":LOCATE 25,24:PRINT "Torpeden: 0" 

:TAG:FRAME 

40 FOR a=l TO 10:st=l+INT(4*RND):IF RND>0. [4444] 

49 THEN s=-63:e=639:b=l ELSE s=639:e=-63:S 
t=-st:b=2 

50 FOR x=s TO e STEP st:a$=INKEY$:IF t=0 T [8445] 
HEN z=z+(UPPERS(aS)="Z")-(UPPERS(aS)="X"): 
z=2-(z<-17)+(z>10)rTAGOFF:LOCATE Z+18,4:PR 

INT cS:TAG 

60 MOVE x,366:GRAPHICS PEN 3:PRINT b$(b); [1632] 

70 IF aS=" " AND t=0 THEN t=l:xt=327:yt=0; [8121] 
d=INT(2/3+0.4):sct=sct+l:TAGOFF:LOCATE 2+2 
0,4:PRINT CHRS(32):LOCATE 34,24:PRINT SCt: 
TAG;SOUND 129,100,1000,7,0,0,1 

80 IF t=l THEN MOVE Xt-d,yt-7:DRAWR d,7,0: [3450] 
DRAWR d,7,l:xt=xt+d:yt=yt+7 

90 IF t=2 THEN t=0:IF Xt+d+4>X AND xt+d<x+ [9068] 
60 THEN SC=SC+l:SOUND 129,3700,-1,11,1,0,8 
:MOVE x,366:PRINT SPACES(4);:MOVE xt,yt:DR 
AWR -d,-7,3:TAGOFF:LOCATE 9,24:PRINT Sc:TA 
G:GOTO 120 

100 IF t=l AND yt>34B THEN t=2:SOÜND 129,0 [1347] 
,0,0 

110 NEXT [350] 

120 NEXT:PAPER £1,0:WINDOW £1,1,40,1,23:CL [5518] 
S £l:PRINT £l,’'Noch einmal? [J]a - [N]ein" 
rSPEED KEY 10,2 

130 aS = INKEY$:IP UPPERS (aS)=="J" THEN RUN E [3914] 
LSE IF UPPERS(aS)<>"N" THEN 130 


li.snng Lu’i 

10 SYMBOL AFTER 250:SYMBOL 250,1,7,15,15,3 [12919' 
1,31,15,15:SYMBOL 251,192,240,240,240,248, 

248,2 40,2 40:SYMBOL 252,7,7,5,2,2,1,1 ,1:SYM 

BOL 253,224,224,l60,64,64,128,128,128:a=RN 

D*10:b=0.4+0.6*RND:m=300:f=7500:z=0.97 

20 DEF FNh(X)=(120+2*a)*SIN((x+440)/(90+a) [9693] 

)+130+a+(20+a)*SIN(x/30/b)+10*SIN((x-20)/( 

5+a*b)):MODE 1:DRAWR 30,0,3:FOR i=50 TO 58 

0 :ys=FNh(i) :y=-y*(y>0) :DRAW i,y:NEXT:DRAW 6 


00,0:DRAWR 39,0,2 

30 IF INKEY(64)<>-1 THEN d=d-(d<9) [1348] 
40 IF INKEY(65)<>-1 THEN d=d+(d>0) [1114] 
50 IF INKEY(47)<>-1 THEN Z=Z*0.93 [1627] 
60 IF INKEY(21)<>-1 THEN m=in+30*(m>0) [1509] 


70 f=Z*(f+d*200):x=X+h‘2.3*(TIME-t)/500000 [4454] 
0:h=h+(f-10*]n-6000)*( (TIME-t)*0.001)'2:t=T 
IME:LF h<=0 THEN h=0 

80 TAG:MOVE xl,hl+34:PRINT " ";:MOVE xl,h [10826 
1+18:PRINT " :MOVE x,h+34:PRINT CHR$(25 
0);CHRS(251);:MOVE X,h+16:PRINT CHRS(252)? 
CHRS(253);:TAGOFF:xl=x:hl=h:IF x>589 AND X 
<630 AND h=0 THEN 110 

90 IF X>30 AND x<590 AND h+14<=FNh(x+ll) T [2541] 
HEN SOUND 129,2800:GOTO 110 

100 IF X<660 THEN 30 [1139] 

110 CLEAR INPUT:LOCATE 7,10:INPUT"NOCH EIN [5107] 
MAL? [J]a";A$;IF UPPER$(A$) = "J" THEN RUN 
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Diskhandling 

Schreibschutz mal ganz 
anders 

Während 3-ZoIl- und 3,5-ZoU-I)isketten die Möglichkeit 
bieten, durch Umlegen eines kleinen Schalters den 
Schreibschutz ein- und auszuschalten, muß bei 
5,25"ZolI-I)isketten mit KIcbeetiketten gearbeitet wer¬ 
den, was auf die Dauer recht umständlich ist. 


Zukicben, wieder abkratzen, wieder zuklebcn und so weiter. 
Nicht immer leicht, denn die Klebstrcifchcn gehen oft 
schwer herunter. Insbesondere bei speziellen Sicherungsdis¬ 
ketten, die oft ergänzt und wieder geschützt werden sollen, 
ist das Verfahren äußerst lästig. Das nachstehend be.schriebe- 
ne Verfahren ist sicher nicht großseriengeeignet, aber für ei¬ 
nige wenige Disketten reicht es vollkommen aus. 

Die Hüllen, in denen die dünnen Scheiben stecken, sind in 
der Regel einheitlich aufgebaut. Aufder Rückseite sind an al¬ 
len vier Seiten die umgefalztcn Laschen der Vorderseite 
durch einige 'Schweißpunkte’ an der Rückseite befestigt 
(Abbildung 1). Nur ganz wenige Hersteller von Disketten 
kleben die Diskettenhüllen; hier ist das Verfahren nicht an¬ 
wendbar. 

Arbeitsanleitung 

Wir legen die Diskette mit der Rückseite nach oben auf den 
Tisch, schieben vorsichtig zum Beispiel eine Rasierklinge 
unter das lose Laschenende (in Abbildung 2 schraffiert dar- 
gestclll) und schneiden mit einem Tapetenmesser das La- 
schenendc ab. Die Rasierklinge verhindert dabei den Druck 
auf die Diskette in der Hülle. Mit einer ganz feinen Schere 
geht das Ganze natürlich auch. 

Nun fertigen wir uns ein kleines Plättchen aus dunklem 
Kunststoff, ein Abschnitt aus einem Schnellhefter ist hervor¬ 
ragend dafür geeignet. Das Plättchen wird ganze 28 bis 29 
Millimeter lang und so breit, daß cs zwischen Punktschwei¬ 
ßung und Hüllenrand paßt. Es muß aber mindestens so breit 
sein wie die Kerbe des Schreibschulzcs (Abbildung 3). Es 
empfiehlt sich, es vorne ein wenig anzuspitzen, damit cs et¬ 
was über der Kerbe eingeschoben werden kann. Bevor wir 
das Plättchen einstecken, knicken wir am oberen Ende des 
Plättchens zirka einen Millimeter um und pressen die kleine 
Falz kräftig. Der Kunststoff behält auch in Zukunft diese 
Form. Deshalb wurde auch dieser Werkstoff gewählt, und 
nicht etwa Pappe. 

Nun schieben wir das Plättchen ein, und die Diskette ist 
schreibgeschützt. An der kleinen Falz ist das Plättchen mit 
dem Fingernagel leicht ein Stückchen hochzuschieben, um 
die Schreibschutzkerbe wieder freizugeben. 

(Jürgen Brandt/rs) 



AhbiUtun^ J: Die lun^efalztcn 
Laschen der Vorderseite sind mit 
'Schweißpunkten ' an der Rück¬ 
seite befestigt. 



Abhiidunf' 2: Hier muß die 
Rasierklinge untergeschoben 
werden. 




AbbildungDas PlastikpUitt- 
eben wird von oben in die Dis¬ 
kettenhülle geschoben. Ein klei¬ 
ner Knick am Plüttclienkopf ver¬ 
hindert das Abrutschen. 
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Dolmetscher 

Deutsche Ausgabemeldungen für CP/M 

Deutsch ist in - nicht nur in Politik und Wirtschaft, auch unsere Program¬ 
me werden immer häufiger der deutschen Sprache angepalk. Wenn auch 
die meisten Software-Produkte noch aus dem anglo-amerikanischen oder 
angelsächsischen Sprachraum zu uns kommen, so werden doch meist spe¬ 
zielle, für den deutschen Markt angepalUe und uingeschriebene Programm¬ 
versionen angebüten. Dies schlielU natürlich die Übersetzung der Pehler- 
und Ausgabemelduiigcn mit ein, so daß der Anwender bei uns den Eindruck 
hat, er arbeite mit einem 'deutschen' Programm. 


Allerdings kommt es auch vor. daß 
Programme nur teilweise umgestellt 
werden, daß Teile des Programms 
nicht übersetzt werden. 

Dann passiert cs. daß die eine Ausga¬ 
bemeldung in Deutsch und eine andere 
in englischer Sprache auf dem Bild¬ 
schirm erscheint. 

Für den Anwender, der es gewohnt ist. 
mit englischen Programmen umzuge¬ 
hen. mag dies kein Problem sein, aber 
dem 'Computer-Neuling', der damit 
noch nicht so vertraut ist, hilft es nicht 
gerade beim Verständnis des Pro¬ 
gramms. w'enn er einmal in Englisch 
und ein anderes Mal in Deutsch ’ange- 
sprochen’ wird. 

Auch das CP/M-Betriebssystem des 
JOYCE (PCW 8256/8512) gehört zu 
jenen Programmen, die dem Anwender 
sowohl deutsche als auch englische 
Ausgabemeldungen 'anbieten' können. 
Einmal werden Sic mit der Meldung 

A: Laufwerk nicht bereit — Wieder¬ 
holen, Ignorieren oder Abbrechen? 

auf einen Fehler beim Umgang mit 
dem Diskettenlaufwerk hingewiesen, 
ein anderes Mal werden Sie mit 

Press Return to Continuc 

aufgefordert, die RETURN-Taste zu 
betätigen. Falls dieses Sprachengewirr 
auch Ihnen 'spanisch' vorkommt, kön¬ 
nen wir Ihnen eine Lösung anbieten: 
Bringen Sie Ihrem Computer Deutsch 
bei! 

Übersetzungsfehle r 

Scheinbar haben die Programmierer 
der Firmen Amstrad beziehungsweise 
Schneider bei der Anpassung des 
CP/M-Programms an die 'deutsche' 
Version der PCW-Rechncr nicht kon¬ 
sequent alle Teile des Programms bear¬ 
beitet. Zwar wurde die BlOS-Implc- 
menlation mit deutschen Meldungen 
versehen, der Console Command Pro¬ 
cessor (CCP) jedoch, der die Kommu¬ 


nikation mit dem Anwender ermög¬ 
licht, und das Basic Disc Operating Sy¬ 
stem (BDOS), für die Kommunikation 
mit den Diskettenlaufwerken zustän¬ 
dig, wurden dabei schlicht und einfach 
'vergessen'. 

Eine nachträgliche Übersetzung der 
Ausgabemeldungen, wie sie im folgen¬ 
den durchgeführt werden soll, setzt na¬ 
türlich einige Kenntnisse des CP/M- 
Beiriebssystems und der Lage der Pro- 
gramm-Module im Speicher bezie¬ 
hungsweise auf der Diskette voraus. 
Aber keine Sorge, auch der noch nicht 
so erfahrene Nutzer der PCW-Rechner 
kann seinem Rechner 'Deutsch' bei- 
bringen. 

Egal, ob sie eine dauerhafte oder zeit¬ 
weilige Änderung der Ausgabemel- 
dungen vornehmen w'ollcn, in beiden 
Fällen muß man zunächst einmal wis¬ 
sen. welche Meldungen überhaupt 
übersetzt werden müssen und wo even¬ 
tuell noch Speicherplatz frei ist, den 
wir benutzen können. Denn zusätzli¬ 
cher Speicherplatz wird auf alle Fälle 


benötigt, die deutschen Übersetzungen 
benötigen meist mehr Zeichen als ihre 
englischen Originale. Denken Sic nur 
an die Meldung 

No file 

die vom CCP ausgegeben wird, wenn 
bei der Ausführung des internen DIR- 
Kommandos kein Directory-Eintrag 
gefunden wurde. Hier benötigt allein 
die wörtliche Übersetzung 

Keine Datei 

schon vier Zeichen mehr. Die Überset¬ 
zung. die ich gewählt habe 

Keine Dntei gefunden 

benötigt sogar ganze 13 Byte mehr an 
Speicherplatz als die Original-Mel¬ 
dung. Das Problem, genügend freien 
Speicher zu finden, um die neuen Mel¬ 
dungen unlerzubringen. war darum 
auch eines der größten, die in diesem 
Zusammenhang zu lösen waren. 

Woher nehmen, wenn nicht stehlen? 
Aber es gibt ja immer noch die umfang¬ 
reichen Copyright-Eintragungen im 
Programm, die außer zur Identifizie¬ 
rung des Programmherstellers keine 
weitere Funktion erfüllen und daher 
(die Programmierer von CP/M mögen 
es mir verzeihen) für die Speicherung 
der übersetzten Ausgabemeldungen 
verwendet werden können. 

Tabelle 1 zeigt Ihnen, wie die Original- 
Meldungen des CCP und des BDOS 
übersetzt wurden. Aufgrund des erhöh¬ 
ten Bedarfs an Speicherplatz mußte ich 
einige Wörter abkürzen, aber ich glau¬ 
be. die abgekürzten deutschen Meldun¬ 
gen sind immer noch besser als die eng¬ 
lischen Original-Meldungen. Die Teil¬ 
meldung 'DISK I/O', für Fehlermel¬ 
dungen des BDOS benutzt, habe ich 
nicht übersetzt. Hier fehlte es wirklich 


CP/M Error OnA: 

Disk I/O 
Invalid Drive 
Rcad/Only File 
Rcad/Only Disk 
Password Error 
File ExLsts 
? in Filename 
BDOS Function = File = 

Cannot load Program 
Enter User #: 

No File 
required 

ERASE fname.* (Y/N)? 

Press Return to Continuc 
(User 0) 

SYSTEM FILE(S) EXIST 
NON-SYSTEM FILE(S) EXIST 


CP/M Fehler auf Laufwerk A: 

Disk I/O 

Ungültiges Laufwerk 
Datei ist schreibgeschützt 
Diskette ist schreibge.schützt 
Kennwort Fehler 
Datei vorhanden 
? im Dateinamen 
BDOS Funktion = Datei = 

Programm kann nicht geladen werden 
neue Nulzernr.: 

Keine Datei gefunden 

erforderlich 

fname.* löschen (J/N)? 

Weiter mit beliebiger Ta.sie 
(Nutzer 0) 

SYS-Datei(en) vorh. 

Nutzer-Date(en) vorh. 


Ahhl: Die Onginalmel(tunf(en von CCP loul BDOS und ihre dettischen Ühersetzuiifien 
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an Speicherplatz für eine gleichwertige 
deutsche Übersetzung. 

Um nun CP/M dazu zu überreden, die 
neuen, übersetzten Meldungen auszu¬ 
geben, muH das Betriebssystem erst 
einmal gepatcht werden (palchen = 
flicken). Wie schon angedcutet, gibt es 
eine temporäre Lösung, bei der das 
CP/M-Programm nachträglich im 
Speicher geändert wird. Wenn Sie zu¬ 
künftig ständig mit deutschen Bild¬ 
schirmausgaben versorgt werden 
möchten, werden die Meldungen 
gleich ins CP/M-Filc auf die Diskette 
übertragen. Beide Lö.sungen sind für 
Sie vorbereitet: ein kleines Programm, 
welches als normale COM-Datei gela¬ 
den wird und dann die nötigen Ände¬ 
rungen im Speicher vornimmt, und 
eine Batch-(Stapel-)Datei, die mit Hilfe 
der CP/M-Dienslprogramme SUB- 
MIT.COM und S1D.COM die Ände¬ 
rungen in der CP/M-Systemdatei 
(J14GCPM3.EMS beziehungsweise 
J12DCPM3.EMS) vornimmt. 

Zunächst jedoeh zur temporären Ände¬ 
rung des CP/M-Programms. Hierbei 
werden durch ein Maschinenpro- 
gramm die neuen Ausgabemeldungen 
und die hierfür benötigten Zeigervaria¬ 
blen in die entsprechenden Programm- 
Module des CP/M-Sysiems über¬ 
tragen. 

Der CCP ist ab Adresse 06D80H in der 
Speicherbank 2 gespeichert, das zu än¬ 
dernde BDOS-Modul liegt ab Adresse 
OSCOÜH in der Speicherbank 0. Alle 
Adrpsen, die geändert beziehungswei¬ 
se für die neuen Meldungen benutzt 
werden, hier aufzuführen, würde den 
Rahmen dieses Beitrags sprengen. In¬ 
teressierte Leser möthte ich auf das 
Quellcode-Li.sting (DATABOX) des 
Maschinenprogramms verweisen, dort 
sind alle Adressen einzeln aufgeführi. 
Für die Erzeugung des Maschinenpro¬ 
gramms benötigen Sie das BASIC-Pro- 
gramm PATCHGEN.BAS (siehe Li- 
sting). Dieses BASIC-Programm er¬ 
zeugt selbständig die Kommando-Datei 
PATCHCPM.COM (auf der DATA¬ 
BOX ist natürlich die fertige COM-Da¬ 
tei schon vorhanden). 

Wenn Sie über die COM-Datei 
PATCHCPM.COM verfügen, können 


Sie jederzeit die CP/M-Bildschirmaus- 
gabe auf 'deutsch' umschaltcn. Zurück 
geht’s allerdings nicht mehr, da müß¬ 
ten Sie schon neu 'booten' (da.s Be¬ 
triebssystem neu starten), um wieder 
englische Meldungen zu erhalten. 

Patchwork 

Für eine dauerhafte Übersetzung der 
Ausgabemeldungen empfiehlt sich je¬ 
doch eine direkte Änderung der 
CP/M-Systemdatei. Mit der Datei 
PATCHCPM.SUß (siehe Listing) läßt 
sich auch dies wieder automatisch 
durchführen. Diese Datei ist sehr kom¬ 
primiert geschrieben und wirkt da¬ 
durch eventuell etwas unübersichtlich. 
Dies ist dadurch bedingt, daß jeweils 
mehrere Eingaben durch das Koniroll- 
zeichen ’tJ’ auf einer Zeile zusammen¬ 
gefaßt wurden. Man kann daran aber 
auch sehr gut sehen, wie umfangreich 
die Änderungen sind, die am 
CP/M-System vorgenommen werden 
müssen. Würde man jede einzelne An¬ 
weisung der Datei PÄTCHCPM.SUB 
in eine 'eigene' Zeile schreiben, so 
würde dies ein Listing von zirka vier 
Seiten Länge ergeben. Wer es möchte, 
kann sich während der Ausführung die¬ 
ser Datei ein solches Listing selb.st er¬ 
stellen, indem er die Protokollfunktion 
des Druckers (mit ’tP' cinschalten) be¬ 
nutzt. Sic erhallen dann jeden einzel¬ 
nen Schritt der Programmausführung 
aufgelistcl. 

Für die Durchführung der Änderungen 
an der CPM-Systcmdatei müssen beim 
Aufruf dieser Stapeldatei noch einige 
Parameter übergeben werden. Es sind 
dies 

- der Dateiname Ihrer CP/M-Datei 

- die Offset-Adresse des CCP und 

- die Offset-Adresse des Teils des 
BDOS, der geändert werden soll. 

Die beiden Offset-Adressen bezeich¬ 
nen die Lage der entsprechenden Pro- 
gramm-Module innerhalb der System- 
datei, bezogen auf die Adresse 01OOH. 
Für die CP/M-Version 1.2 
(J12DCPM3.EMS) sind dies die Werte 
05520H (CCP) und ()9C80H (BDOS). 
bei der Version 1.4 (J14GCPM3. EMS) 
beträgt der Offset 055EÜH (CCP) und 


09DCK)H (BDOS). Der Aufruf der Da¬ 
tei PAfCHCPM.SUB. die Änderun¬ 
gen in der System-Version 1.2 durch¬ 
zuführen. lautet dann 

SUBMIT PATCHCPM J12DCPM3 
.EMS5520 9C80 

beziehungsweise für die System-Ver¬ 
sion 1.4 

SUBMIT PATCHCPM JI4GCPM^ 
.EMS 55E() 9D(K) 

Ich habe diese Kommandos jeweils in 
eine eigene Datei mit' Namen 
PATCH V12. S ÜB beziehungsweise 
PATCHVI4.SUß geschrieben, dann 
vereinlücht sich der Aufruf etwas, und 
man braucht sich um die Offset-Werte 
nicht zu kümmern. 

Um nun die Übersetzung Ihres Pro¬ 
gramms durchzuführen. gehen Sie bitte 
folgendermaßen vor: 

Nachdem Sie die Dateien 
PÄTCHCPM.SUB und PATCHVI2 
.SUB beziehungsweise PATCHV14 
-SUB abgetippt und auf einer Diskette 
abgespeichert haben, kopieren Sie fol¬ 
gende Dateien nach Laufwerk M: 

* SID.COM (Systemdiskette S. 3) 

* SUBMIT.COM (Systemdiskette S. 2) 

^ Ihre CP/M-Datei. die Sie ändern 

Wüllen (JI2DCPM3.EMS oder 
J14GCPM3.EMS) 
♦PÄTCHCPM.SUB 

* PATCHV14.SUB beziehungsweise 
PATCHV12.SUB (je nach vorhande¬ 
ner CPM-Version) 

Zum Kopieren können Sie jedes belie¬ 
bige Kopierprogramm (zum Beispiel 
PIP.COM) benutzen. Danach schalten 
Sie auf Laufwerk M; um. indem Sie 

M: >RETURN< 

eingeben, und rufen dann Ihre Patch- 
Datei auf. für die CP/M-Version 1.2 

SUBMIT PATCHV12 > RETURN < 
oder für die Version 1.4 
SUBMIT PATCHV14 > RETURN < 

Nachdem diese Dateien abgearbeilet 
wurden, .steht Ihnen die fertige, 'deut¬ 
sche’ CP/M-Systemdatei zur Verfü¬ 
gung. Sie brauchen sic nur noch von 
Laufwerk M: auf Ihre Startdiskette zu 
kopieren. 

(Norbert Finkc/rs) 


!!!! PÄTCHCPM.SUB ersetzt im CP/M-Systemfile die 

Auegabemeldungeji durch entBprechende 
•*** deutsche Meldungen. 

**** Aufruf: 

•*** SUBMIT PATCHCPM cpmfile.typ cepoffset bdosoffset 
sid $1 

?? 3®^52+62f-j38c-'3.-jswS2+63d-jd54“ü 

<swS2+68d ]3e8'-3.-j8w$2+6b9-j378*j.-38W$24-74b*j3f6-i 
<BwS2+82a''3cf3'-3.''jBW$2+640"j940'j.‘jswS2+82d''j940M. 
5aw$2+253-]a0d‘j'rP'-j'go'-j'ar'-j'nu;i-'j'k "j'na' ^ 

Listing Dolmetscher 


<’ n"-j'in'~j'hc"‘j' t'-j-eg' 
<'dr'''j'ne"‘j24-j. 
<sw$2+cl7'-j'YS"'j'-S"'j'aD"'j 
<'ov"'j'hr'*j242e“j. 
<8wS2+c2b^j 'UN" j 'zt' ^ j 're‘ “ j 
"j'ro"j'.h'-j24-j 
<aw$2+c42''j'en j’eu "“i'N "1 


'‘j2420"j. 
<sw$2+28c''j24^j. 
<8w$2+c 54''3'1 "j'eo"j'ca’' 
<'?) "j2420''j. 

Listing Dolmetscher 


'a 

'et 

’D- 

'tu 


■'j’(i"j'ne' 
''j'ta"j'ie’ 
j '62 ’ *j0072 


n " j’ew' 

“j' >' 

"j 'e(' 

-j .j-n- 


'j'eh"j' n'-'j’JC"' 


j'N/' 
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<8wS2+2e8'j ’e ' * j 'fr j To "■ j 'ed'" j ' Ir ’ * j 'ci'^ j2468 
< . 

<BW$2+278"j'eK'“j'ni'"j' e j'aD'* j'et'" j ' i"-j'eg’ 
<'uf " j ’dn' ^ j ’ne'* j24''j . 

<sw$ 2 + 2 f 6 '‘j'< '*j'un"'j'zt'''j’re'‘j '0 ’“j2429'-]. 
<8W$2+b£3"jaOd''jaOd“j'eW'"j 'ti'^j're'-j 'm '“j'ti' 

<'b " j' le*'j'ei " j'ib"'j’eg’“j ' r' ^ j'aT'* j ' ts j ' e' 
< '. . j242e^j. 

<sw$2+83e~jbl8*j49cd''je09‘'jlGOe” jl8fd'-je02'-jc309 
<05-'j. 

<8$2+649‘j'J’-'j. 

<sw$3-0b6''j8c9b^j9971''j9955"-j9946"j. 

<sw$3-0aa''j9990^ j8c4a^ j8cb4^ j. 

<8W$3-276'j9942"j. 

<sw$3-cdl-'j’PC"'j’M/"-J'F '‘j'he"'j'el'^j' r'^j'ua' 

<' f'"j'WL"-j'A '"j' :'-j 5500 *j'gn'"j’l'*j'it’^j'eg' 
<' 8 '* j'WL”'jOOOO" j'aD''“ j'et'j ' t'^jTs' 

<Th"j'ie’-j'gb"'j'Be"'j'hc"' 3 't'^j 'tz "* j2000'j ’ iD' 

<'ks'-j'te'* j'et'^ j'i "'j't 8 ’''j'e ""j. 

<s$3-c81'j'c'*j. 

<8wS3-'d80''j 'rh'’'j 'ie"-j ’gb"'j 'se ’ * j ’hc j 't’ ■'3 ' tz' 
< 00 “ j 'eK' 'i 'nn“ j 'ow"“ j ■ tr "■ j 'e£ ' ~ j ' Ih'' j Te"’jOO-j . 
<BwS3-065^j'iD"j'ks'"i'I "• j' 0 /" 34400''j'ta "j'ie' 
<'v "• 3 ’ro'“j'ah"'j'dn"'j'ne''j3fOO''3'i "j' m"' 3 'aD’ 
<'et "'3 ■ni*''j ‘ma '^3 'ne'^ jQO'j . 

<B$3-2fd* 3 'k'"j. 

<BwS3-2£l''j 'aD" j 'et'^j '“i'" j . 

<w $1 
<''c 


<65> 10 --* 

<86> 11 '>. PATCHGEN.BAS - erzeugt die Datei PATCHCPM.COM. < 
<73> 12 *>. zuiti bersetzen der Ausgabemeidungen. des CPM-. < 

< 3> 13 '>. ProgrammB (BDOS und CCP) in die deutsche. < 

<30> 14 Sprache. < 

<91> 15 Rechner: PCW 8234/8512. < 

<B4> 16 '>. Programmiersprache: Maliard BASIC. < 

<41> 17 written 1990 by NoPl. < 

<B1> 18 '>-----< 

<12> 19 OPEN “0",#!, 'PATCKCPM.COM' 

<85> 20 FOR i»0 TO 655 


<28> 21 READ aS:PRINT #1 CHRS(VAL(TH"+a$)); 

<39> 22 NEXT 
<17> 23 CLOSE #1 
<37> 24 END 

<12> 25 DATA 21,3A,01,5E,23,56,23,46,23,4E,23,CD,25,Q1,20,F3 

< 1> 26 DATA 23,5E,23,56,23,46/23,OE,02,CD,25,01,20,F3,23,11 
<92> 27 DATA C9,73,01,01,02,E5,D5,C5,OE,01,CD,57,rC,Cl,06,00 
<3e> 28 DATA EB,CD,4B,FC,Dl,El,09,7E,3C,C9,D3,6F,02,25,OC,OA 

< 8> 29 DATA 50,72,6F,67,72,61,6D,6D,20,6B,61,6E,6E,20,6E,69 

< 5> 30 DATA 63,68,74,20,67,65,6C,61,64,65,6B,20,77,65,72,64 
<46> 31 DATA 65,6E,24,97,79,02,14,53,59,53,2D,44,61,74,65,69 
<77> 32 DATA 28,65,6E,29,20,76,6F,72,68,2E,24,AB,79,02,17,4E 
<11> 33 DATA 75,74,7A,65,72,20,44,61,74,65,69,28,65,6E,29,20 
<92> 34 DATA 76,6F,72,60,2E,24,C2,79,02,12,6E,65,75,65,20,4E 
<82> 35 DATA 75,74,7A,65,72,00,6E,72,2E,3A,20,24,OC,70,02,01 
<42> 36 DATA 24,D4,79,02,11,20,6C,7C,73,63,68,65,6E,20,28,4A 
<43> 37 DATA 2F,4E,29,3F,20,24,68,70,02,OE,20,65,72,66,6F,72 
<64> 38 DATA 64,65,72,6C,69,63,60,24,F0,ÖF,02,15,4B,65,69,6E 
<a7> 39 DATA 65,20,44,61,74,65,69,20,67,65,66,75,6E,64,65,6E 
<70> 40 DATA 24,76,70,02,OC,20,20,4E,75,74,7A,65,72,20,30,29 
<48> 41 DATA 24,73,79,02,24,OC,OA,OC,OA,57,65,69,74,65,72,20 
<89> 42 DATA 6D,69,74,20,62,65,6C,69,65,62,69,67,65,72,20,54 
<36> 43 DATA 61,73,74,65,20,2E,2E,2E,24,2F,99,00,17,43,50,2F 
<76> 44 DATA 4D,20,46,65,68,6C,65,72,20,61,75,66,20,4C,57,20 
<39> 45 DATA 41,3A,20,00,9B,0C,00,09,44,69,73,6B,20,49,2F,4F 
<47> 46 DATA 00,46,99,00,OE,55,6E,67,7D,6C,74,69,67,65,73,20 
<85> 47 DATA 4C,57,00,55,99,00,IB,44,61,74,65,69,20,69,73,74 
<44> 48 DATA 20,73,63,63,72,65,69,62,67,65,73,63,60,7D,74,7A 
<88> 49 DATA 74,00,71,99,00,lE,44,69,73,6B,65,74,74,65,20,69 
<45> SO DATA 73,74,20,73,63,60,72,65,69,62,67,65,73,63,68,70 
<46> 51 DATA 74,7A,74,00,A4,8C,00,10,44,61,74,65,69,20,76,6F 
<46> 52 DATA 72,68,61,6E,64,65,6E,00,B4,0C,00,10,3F,20,69,6D 
<67> 53 DATA 20,44,61,74,65,69,6E,61,6D,65,6E,00,90,99,00,OP 
<50> 54 DATA 4B,65,6E,6E,77,6F,72,74,66,65,68,6C,65,72,00,FB 
<34> 55 DATA 8E,00,28,42,44,4F,53,20,46,75,6E,6B,74,69,6F,6E 
<95> 56 DATA 20,3D,20,2A,2A,2A,2A,44,61,74,65,69,3D,20,2A,2A 
<52> 57 DATA 2A,2A,2A,2A,2A,2A,2E,2A,2A,2A,00,BE,75,02,10,10 
<56> 58 DATA OB,CD,49,09,OE,06,1E,PD,18,02,OE,09,C3,05,00,FF 
<81> 59 DATA FA,6D,02,53,03,F0,72,02,17,OD,00,73,02,2B,OD,96 
<92> 60 DATA 73,02,42,OD,AF,73,02,8C,03,BD,73,02,54,OD,OD,74 
<B6> 61 DATA 02,EB,03,39,74,02,78,03,CB,74,02,F6,03,AA,75,02 
<23> 62 DATA F3,OC,4R,BD,00,2F,99,4A,8D,00,9B,BC,50,8D,00,46 
<26> 63 DATA 99,4E,BD,00,55,99,4C,8D,00,71,99,58,8D,00,A4,6C 
<80> 64 DATA 5A,0D,00,B4,SC,56,80,00,90,99,8A,8E,00,42,99,C0 
<28> 65 DATA 73,02,40,09,AD,75,02,40,09,FF,4A,lA,lA,lA,lA,lA 


I LIsiing 


Oolmet&cher 


Listing Oolmeischer 


PD für alle 

Freie Software für den PCW 

Interessante Public-Doniain-Utilities für JOYCE finden sich beispielsweise 
auf den Disketten J 3 des Computer-Clubs Oberschwaben und Nr. 1026 von 
Martin Kotulla. Wir wollen Ihnen hier einige davon vorstellen. 


BCOM (CCO) 

vergleicht zwei Dateien und gibt Un¬ 
terschiede byteweise in Hex- und 
ASClI-Forni aus. Die Ausführungsge¬ 
schwindigkeit ist sehr positiv. Der 
Aufruf ist einfach: 

BCOM<Dateil> <Datei2> 

Sind die beiden verglichenen Dateien 
gleich, wird ‘nichts’ angezeigt. Ist eine 
Datei länger, wird der ‘Überhang’ 
komplett angczcigt. Falls eine der Da¬ 
teiangaben fehlt oder die Datei nicht 
gefunden wird, erhält man eine sehr 
kurze, aber doch informative Fehler¬ 
meldung. 

CHANGE (Kotulla) 
ersetzt in einer Textdatei eine spezifi¬ 
sche Zeichenketlc durch eine andere, 
überall, wo sie vorkommt. Das beson¬ 
dere Bonbon ist die Art, wie die zu er¬ 
setzende Zeichenkette anzugeben ist: 
Dies geschieht nämlich mit sogenann¬ 


ten regulären Ausdrücken, wie sie von 
dem Betriebssystem UNIX her bekannt 
sind. 

COMP ARE (CCO) 

vergleicht zwei Dateien. Der Aufruf ist 
entsprechend dem von BCOM. Der 
Unterschied: Sind die beiden Dateien 
ungleich, so wird der Vergleich abge¬ 
brochen, und cs werden die letzten zir¬ 
ka 256 noch übereinstimmenden Bytes 
angezeigl. Dabei werden druckbare 
Zeichen im Klartext und Steuerzeichen 
als Hexcodes angezeigl. 

COKPARE <Dateil>_< Date 12 > 

Zwischen den Dateien müssen auf der 
Kommandozeile zwei (!) Leerzeichen 
stehen (wohl infolge eines Program¬ 
mierfehlers). 

CRCK (CCO) 

errechnet für jede angegebene Datei 
eine Prüfsummc und gibt diese aus. 
Nützlich beim Archivieren oder Ver¬ 


schicken von Dateien, um festzustel¬ 
len, ob sich zum Beispiel Fehler auf 
dem Datenträger eingeschlichen 
haben. 

CRCK < Dateimaske > 

< Dateimaske > darf der Name einer 
existierenden Datei sein oder auch 
Wildcards enthalten, 

DETAB (Kotulh) 

entfernt TAB-Zeichen aus einer Tcxl- 
datei auf intelligente Weise: Man kann 
angeben, an welcher Stelle die Tabula¬ 
torpositionen beim Erstellen der Datei 
waren. Es werden dann in jeder Zeile 
anstelle vorhandener TABs genau so 
viele Leerzeichen eingesetzt, wie nötig 
sind, um das entsprechende Bild ohne 
TABs zu erzeugen. 

DIRDUMP (CCO) 

gibt die Inhaltsverzeichnisse sämtli¬ 
cher Uscr-Bcreiche nacheinander auf 
der Diskette aus. 

DISK76 (CCO) 

ist eine ’abgespeckte' Variante von 
SWEEP, die dafür noch etwas weniger 
Platz auf der Diskette beansprucht. 
Nur interessant für Leute, die mit dem 
Diskettenplalz extrem geizen müssen. 
Die möglichen Kommandos werden 
beim Aufruf angczcigt. 

(Christian Frederking/rs) 


92 PC 8/9’90 
































PCW^ 


LocoScript-Tips 

Hilfen und Patches für LocoScript 

Auf unseren Aufruf in der Ausgabe 4/90 haben wir einige interessante Tips 
zu LocoScript erhalten. Selbstverständlich wollen wir Ihnen die besten Tips 
näherbringen. Schauen Sie selbst, für Jeden ist etwas dabei. 


Anfängen wollen wir mit vier Tips von 
Herrn Frickc, die es in sich haben. 

Andere s Erscheinungsbild 
bei LocoScript 

Um ein anderes Erscheinungsbild bei 
LocoScript zu erreichen, gilt es, auf 
der Menüebene den HEX-Code 00 00 
00 00 00 00 00 00 im Bildschirmzei¬ 
chensatz durch 44 00 44 00 44 00 44 00 
zu ersetzen. 

LocoScript 1.21 

Die Adresse für die Leerzeichen in den 
Menüs befindet .sich bei &HA4B0 in 
der Datei J2IGLOCO.EMS. Dabei 
bleibt das weitere Leerzeichen, das in 
den Untermenüs die Spalte mit dem 
Häkchen (Adresse &HAC28) füllt, un¬ 
berücksichtigt, da dabei das Erschei¬ 
nungsbild beim Arbeiten in Textdatei¬ 
en 'ohne Codes’ (f8=Optionen, 1. Zei¬ 
le. Häkchen nicht gesetzt) leidet. Das 
Patchen erfolgt in der bekannten Art 
und Weise: 

SID JZlgloco.ems 
sa4b0 <RET> 

00 44 <RET> 

00 <RET> 

00 44 <R£T> 

00 <RET> 

00 44 <eü;t> 

00 <RET> 

00 44 <RET> 

00 .<RET> 

vj21gloco.ems <RET> 

LocoScript 2.16 

Die entsprechende Adresse in der Datei 
J2I6LOCO.EMS lautet &H86E4. Die 
Bearbeitung erfolgt im oben genannten 
Verfahren. 

(Hans-Joachim Fricke/rs) 

Optische Warnung 
statt Signalton 

Beim Schreiben mit dem PCW stört 
manchmal (besonders abends) das et¬ 
was nervige Gepiepse des Computers 
als Reaktion auf einen unzulässigen Ta¬ 
stendruck. Die Suche im Programm 
nach einer Stelle, die wie OUT 248,11 
(Dauerpieps ein) beziehungsweise 
OUT 248,12 (Dauerpieps aus) aussah. 
war erfolgreich. 


Verhindert man durch ein Verändern 
des Programms nur das Einschalten des 
Signaltons, bleibt der PCW zwar 
stumm, der Bearbeiter wird sich aber 
häufig wundem, weil auf einen fal¬ 
schen Tastendruck hin überhaupt nichts 
passiert. Das verlangsamt die Arbeit 
unnötig. 

Eine bessere Lösung, die zudem der 
besonderen Lage von Hörgeschädigten 
Rechnung trägt, ist es, das akustische 
Signal in ein optisches umzuwandeln. 
Es bietet sich an, den Befehl 'Dauer- 
pieps an’ durch ‘Bildschirm aus’ und 
’Dauerpieps aus’ durch ’Bildschirm an’ 
zu ersetzen. Das Ergebnis dieser Ände¬ 
rung ist ein kurzes Verlöschen des Bild¬ 
schirms, wenn eine Taste gedrückt 
wird, für die es keine aktuell gültige 
Option im Textverarbeitungsprogramm 
gibt. 

Bei den verschiedenen Versionen von 
LocoScript muß an den nachfolgend 
aufgczählten Adressen entweder &H0B 
durch &H08 oder &H0C durch &H(r7 
ersetzt werden. 

I^coScript 1.21 (J21GLOCO.EMS) 
&H8790, &H8795 

LocoScript 2.16 (J216LOCO.EMS) 
&H78E1. &H78ED 
LocoScript 2.28 (J228LOCO.EMS 
&H5C61. &H5C6D 

(Hans-Joachim Fricke/rs) 

Lx)CQScript invers 

Mancher Nutzer von LocoScript be¬ 
dauert es vor allem an hellen Tagen 
oder in Räumen mit intensivem Kunst¬ 
licht, daß das in LocoScript integrierte 
und damit nicht zugängliche Betriebs¬ 
system eine Umschaltung des Bild- 
•schirms verhindert, wie cs unter CP/M 
Plus mittels des Dienstprogramms PA- 
LETTE.COM möglich ist. LocoMo- 
tive Software hat wahrscheinlich das In¬ 
vertieren des Textverarbeitungspro¬ 
gramms deshalb nicht vorgesehen, weil 
das Bildschirmflimmern wegen der re¬ 
lativ geringen Bildwiederholungsfre¬ 
quenz dann als noch störender empfun¬ 
den werden könnte. Ob das zutreffend 
ist, sollte jeder selbst beurteilen kön¬ 
nen. Wir empfehlen Jedoch bei inverser 
Darstellung die Verwendung eines 


Bildschirmfilters, der sowohl das Flim¬ 
mern reduziert als auch den Kontrast 
verstärkt und insgesamt ein ermü¬ 
dungsfreieres Arbeiten gewährleistet. 
Verschiedene Versuche mit OUT-Be- 
fehlen haben ergeben, daß OUT 
'247.X' dann zu einer kurzfristigen In¬ 
vertierung des Bildschirms führt, wenn 
X ein Wert von 128 oder mehr an- 
nimmi. Wenn die 'J???LOCO.EMS- 
Dateien einen solchen OUT-Belehl ent¬ 
hielten. könnte dort eine Lösung des 
Problems zu finden sein. Die Untersu¬ 
chung dieser Dateien hat zweierlei er¬ 
geben: 

• Der Befehl 'OUT 247,A' (D3 F3) 
kommt einige wenige Male im Pro¬ 
gramm vor. 

• Ein Überprüfen der Inhalte vom Re¬ 
gister A ergibt an den fraglichen Adres¬ 
sen immer Werte unter 128. 

Es gilt also, den Wert für das Register A 
unmittelbar vor dem OUT-Bcfehl auf 
mindestens 128 (&H80) zu erhöhen, 
ohne daß das Programm dabei an ande¬ 
rer Stelle Schaden nimmt. Der uns be¬ 
kannte und am sinnvollsten erscheinen¬ 
de Werl i.st 232 (&HR8). Hier nun die 
Patch-Adressen für die tblgcndcn Loco- 
Script-Versionen: 

Ij)coScript 1.21 (J21GLOCO.EMS) 
&H873A von &H40 auf &HE8 
LocoScript 2.16 (J216LOCO.EMS) 
&H78B5 von &H40 auf &HE8 
LocoScript 2.28 (J228LOCO.EMS) 
&H029B von &H40 auf &HE8 
Übrigens: Auch im Betriebssystem-File 
J14GCPM3.HMS läßt sich die Einstel¬ 
lung fest verändern. Die Adresse lautet 
hierbei &H18B2. Auch hier muß der In¬ 
halt von &H40 auf &HE8 abgeändert 
werden. 

(Hans-Joachim Steller/rs) 

Ein kByte mehr auf 
der Startdiskette 

Der Platz auf der Starrdiskeitc, gleich 
ob in der Standardversion mit 173 kByte 
oder mit 188 kByte bis zum äußersten 
ausgereizt, ist immer knapp. 

Wenn man beabsichtigt, die Meldung 
beim Laden von LocoScript. wie in PC 
International. Heft 4/90, Seite 68 be¬ 
schrieben. zu verändern, so wird die 
Begrüßung nur angezeigl, w’enn eine 
'Datei' mit dem Namen ’LIES- 
MICH.STD' (LocoScript 1.21) bezie¬ 
hungsweise 'LIESMICH' (LocoScript 
2.16 oder 2.28) in Gruppe 0 der Start- 
diskette vorhanden ist. Nun braucht 
aber auch eine vollständig leere Tcxlda- 
tei 1 kByte des wertvollen Speicherplat¬ 
zes. Bei der Untersuchung der Loco- 
Script-Startdiskette unter CP/M Plus 
und SWEEP.COM (PD-Programm. auf 
Daiabox 4/90) fällt auf. daß die Be- 
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Zeichnung der Gruppen als Datei init 0 
kByte geführt wird. Ein genaueres Be¬ 
trachten mit einem Diskettenmonitor, 
zum Beispiel DU.COM, macht deut¬ 
lich. daß cs sich eigentlich gar nicht um 
eine Datei handelt, sondern lediglich 
um einen Eintrag in das Inhaltsver¬ 
zeichnis. Da in diesem verständlicher¬ 
weise keine Informationen darüber ab¬ 
gelegt sind, welche Sektoren mit dieser 
'Datei' beschrieben wurden, bleibt der 
Versuch des Kopierens mit P1P.COM 
ohne Erfolg. 

Dazu nun folgender Tip: 

• Laden Sie CP/M Plus 

• Laden Sie SWEEP.COM 

• Legen Sie die Startdiskette (Kopie 
des Originals) ins Laußi’crk A: 

• Kopieren Sie die leere Datei 
gruppeO.grp’ beziehungsweise ’Grup- 

peO. grp' ins Laufwerk M: 

• Benennen Sie die Datei um in 'LIES 
MICILSTD’ beziehungsweise ’LIES- 
MICH’ 


Nicht auf die gleichnamige Kosmetik- 
lady (AVON) sondern auf Shakespeares 
Geburtsstadt Stratfbrd, die an besagtem 
Avon liegt, bezieht sich der Titel dieses 
Text-Adventurcs. Doch keine Angst, 
großartige Litcraturkenntnisse werden 
nicht erwartet, lediglich Orte und Cha¬ 
raktere sind den Werken des großen 
Barden entliehen. 

Sein oder Nichtsein 


Während einer Europareise kommt der 
Held dieser Geschichte natürlich auch 
nach England und besucht dort diverse 
Sehenswürdigkeiten. Unter anderem 
führt ihn sein Weg nach Stratford, wo er 
sich prompt verläuft und ziemlichen 
Ärger mit drei älteren Damen be¬ 
kommt. deren antiken Kessel er partout 
nicht kaufen will. Kaum hat er sich aus 
dem Lädchen abgesetzt, erregt er kein 
geringes Aufsehen bei einigen Bewoh¬ 
nern des Dorfes, die sich über seine 
Kleidung und seinen seltsamen Akzent 
mokieren. Jetzt erst stellt unser Tourist 
fest, daß sich die Landschaft, die 
Tages- und auch die Jahreszeit verän¬ 
dert haben und er irgendwie in die Ver¬ 
gangenheit versetzt wurde. Die Aufga- 


• Andern Sie das Datei-Aiirihul in 
R/W. SYS 

• Kopieren Sie die Datei zurück auf 
Laußverk A : 

So haben Sie nun bei funktionierender 
'Begrüßung' 1 kByte mehr an Speicher¬ 
platz zur Verfügung; vielleicht gerade 
das kByte. das Ihnen fehlte, um einen 
weiteren Zeichensatz laden zu können. 

(Hans-Joachim Steller/rs) 

LocoScri pt mit LocoSpell 

LocoScript bietet in der Zweier-Version 
auch die Möglichkeit der Rechtschreib¬ 
prüfung. Man mag darüber zwar geteil¬ 
ter Meinung sein, was die Prüfung ei¬ 
nes kompletten Textes angeht, aber die 
.ständige Abrufbarkeit unter der Text- 
verarbeilung ist nicht zu verachten. 
Trotzdem ist es etwas müh- 


be ist klar: herausfinden, was gesche¬ 
hen ist. und Rückkehr ins zwanzigste 
Jahrhundert. 

Cfcistcr , Gift und Kön ige 

Die Rätsel dieses im wahrsten Sinne des 
Wortes klassischen Text-Advenlures 
sind von ganz einfach bis haarsträubend 
knifflig angelegt. Logik führt meistens 
zum Ziel. aber auch “ um die Ecke den¬ 
ken“ ist hin und wieder nötig. Ob man 
eine Statue durch Küsse zum Leben er¬ 
weckt. einen glücklosen Angler mit ei¬ 
nem Wurm versorgt oder den in einem 
allen Baum eingcschlossenen Geist 
durch einen Hieb mit dem Dolch be¬ 
freit: Die Geschichte ist bunt und nie¬ 
mals langweilig. 

Das Herzstück eines jeden Text-Adven- 
tures, der Parser, kommt zwar nicht an 
Infocom-Standards heran, da er sich 
zumeist mit simplen Zwei-Wort-Befeh- 
len zufriedengibt, dafür aber besitzt er 
ein recht großes Vokabular. Auch die 
Examine-Funkiion wird nur selten ge¬ 
braucht. Der Autor steht auf dem 
Standpunkt, daß es besser ist. über ei¬ 
nen Gegenstand gleich alles zu sagen, 
was darüber zu sagen ist. Positiv ist 


selig, während des Prüfablaufs vor der 
'Glotze zu hängen' und lange auf einen 
Fehler zu warten, der dann mittels eines 
Menüs eingeblendet wird. 

Wer einigermaßen fehlerfrei tippen 
kann, könnte sich während des Prüfvor¬ 
ganges mit etwas anderem beschäf¬ 
tigen. 

Zuerst wird der Prüfvorgang ganz nor¬ 
mal begonnen. Dann startet der Prüf¬ 
vorgang. und unser Tip kommt zum 
Einsatz.: 

Stall auf einen Fehler zu warten, 
drücken Sie einfach die Taste ’ö' oder 
'ä' und gehen Ihrer Beschäftigung nach. 

Tritt nun ein Fehler auf. so ertönt ein 
kurzer Piep, der Sie darauf aufmerk¬ 
sam macht, daß entweder ein Fehler ge¬ 
funden oder aber der Prüfvorgang 
beendet wurde. 

(Winfried Seimert/rs) 


auch die dichte Atmosphäre aufgcfal- 
len, die den Spieler schnell in ihren 
Bann schlägt. Sie besticht vor allem 
durch die wirklich stilvolle Ausdrucks- 
wcisc. Selbst an eine Online- 
Help-Funktion wurde gedacht, die 
schrittweise an die Lösung solch drin¬ 
gender Probleme führt wie "Welchen 
Rat gebe ich König Lear” oder "Was 
um Himmels willen Lst ein Porpentine“. 
Wenn ich jetzt doch nur schon wüßte, 
was es mit der walfischformigen Wolke 
auf sich hat und warum alle Gegenstän¬ 
de verschwinden, die ich in den Korb 
lege. 

Zw ei Adventures f ür ei nen Preis 

Avon ist ein exzellentes Beispiel dafür, 
daß ein Universitätsprol'cssor nicht nur 
trockene Materie beherrschen, sondern 
auch spannende Adventures schreiben 
kann. Hat man erst einmal mit Avon an- 
gefangen, kann man sich nur noch mit 
Mühe davon losreißen. Ganz besonders 
deshalb, weil als Graiis-Zugabe noch 
ein zweites Adventure auf der Diskette 
wartet: Monsters of Murdac — eine 
Reise durch ein Land voller mystischer 
Figuren, nur an Halloween um Mitter¬ 
nacht durch ein Peniagram zu betreten, 
wo ein Zauberer in Nöten meiner Hilfe 
harrt... 

(Antje Hink/rs) 


Titel: Avon (o Shiikespcaivaii inificdy oj otir iimr. ./ 
Autor: Or Jonailiuii Ihiriiiiglon 

Hersteller: Topologiko P.O.lim Stillen PeterlJon>ii)!h 

PK7JRI. an 

Preis: zirka 30 DM 


PCW-Spiel des Jahres? 

AVON 

An dieser Stelle möchten wir Ihnen seit langem mal wieder eine Neuerschei¬ 
nung für den PCW vorstellen, bei der es sich nicht um eine Anwendung, 
sondern um ein Spiel handelt. 
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CPC-Programme auf 
dem PCW 

Banner-Schrift 

’Bfim Ceus’, würde mein CPC-Kollege jetzt sagen, ’ein Bannerdruckpro- 
gramm für den PCW’. 

Gro/Je Schriften lassen sich Jetzt auf dem PCW' ohne Probleme entwerfen. 
Vom Plakat über ein Spruchband, alles ist Jetzt möglich. 


Kon/.ipicrl ist dieses Programm, wie 
Sic dem Vorspann schon entnehmen 
konnten, zur Darstellung von verschie¬ 
denen Schriftgrößen auf dem PCW-ci- 
genen Drucker. 

Da dem Programmierer die nötige Er¬ 
fahrung in der Assembler-Program¬ 
mierung fehlte, wurde auf eine Routine 
zum Auslesen des Zeichensalzes ver¬ 
zichtet. vielmehr wurden die Daten für 
die einzelnen Zeichen in Datazeilen un- 
lergebracht. 

Das P rogram m an sich... 


3 < = = Zeichen Editor 

Dieser Menüpunkt vereinigt mehrere 
Funktionen. Hier lassen sich Zeichen- 
sätzc erstellen, bestehende zum 
Drucken oder Ändern laden und wie¬ 
der speichern. Beim Speichern werden 
aus den vorhandenen Daten neue 
DATA-Zeilen erstellt und mit dem Da¬ 
teibezeichner .ZSM (Zeichensatz-Ma- 
irix) auf Diskette geschrieben. 

Sollen diese Daten nun wieder genutzt 
werden, werden sie — nach Anwahl 


des entsprechenden Menüpunkles — 
aus dem laufenden Programm heraus 
mit dem Befehl 'CHAIN MERGE’ ge¬ 
laden und gleich danach in den Spei¬ 
cher gelesen. 

Im eigentlichen Editor können folgen¬ 
de Tasten benutzt werden: 

[+!/[-] zum Selzen und Löschen von 
Punkten. 

[COPY] zum Einblenden bereits er¬ 
stellter Zeichen in die Maske. So kön¬ 
nen zum Beispiel die Umlaute schneller 
editiert werden. 

[SPACE] löscht die bestehende Maske. 
[EXITj veranlaßt den Computer dazu, 
das Zeichen zu übernehmen und die 
Maske zu verlassen. 
fCAN] bricht die Bearbeitung der Mas¬ 
ke ab. 

(H.TandIcr/rs) 


Dieses Pmitnimni ist ifi BASIC fie.u'hrwhen. Nach der 
Eingabe sollte ex sofort mir 'SAVE’BANNT.R.HAS'" 
idfgi’speicliert \svnle/i. Später kann es ilann unter 
CP/M mit 'A > BASIC BANNER'und unter BASIC mit 
'Rl.W'HANNER“' wieder eingeluden werden. 
Acluwia: Bille iirgiini.deren Sie die ZeilenviTv.riliiing 
nicht mir dem Befehl 'RENI/M' ton. da das Programm 
mit ’CIIA/N MERCK' Daten nachliidl. 


...meldet sich nach dem Start mit der 
Aufforderung, sich einen Moment zu 
gedulden, da die ASClI-Zeichen ja erst 
einmal aus den Data-Zeilen eingelesen 
werden müssen. 

Ist dies geschehen, erscheint das 
Hauptmenü mit vier Punkten, welche 
nachfolgend genauer erklärt werden. 

1 < = = Text - Baniierschrift 


Nach Anwahl dieses Punktes wird zu¬ 
erst nach der Höhe und der Breite der 
zu druckenden Zeichen gefragt. Nach¬ 
dem Sic nun den zu druckenden Text 
cingcgcbcn haben, können Sie wählen, 
an welcher Position dieser ausgedruckt 
werden soll. Zur Auswahl sicht hierbei 
linksbündig, zentriert und rechtsbün¬ 
dig. Sind alle Angaben gemacht, wird 
der eingegebene Text waagerecht auf 
das Papier gedruckt. 

2 < = = Text - Grafikdruck 


Im Grafikmodus werden die Zeichen, 
so wie sie erstellt wurden, auf dem 
Drucker ausgegeben. Auch hierbei be¬ 
steht die Möglichkeit, die Zeichen in 
Höhe und Breite llcxibel zu verändern. 
Bei den Eingaben, welche getätigt wer¬ 
den müssen, muß hier noch der Ab¬ 
stand zwischen den einzelnen Zeichen 
angegeben werden. 

Bei Zeichensätzen mit einer Punktma¬ 
trix von mehr als 8 Punkten in der 
Höhe benötigt der Computer etwas 
mehr Zeit zum Berechnen der Biibildcr 


Beispiele Tür den Grafikdruck: 

OifS lit die nsr*>le Sehriftgro{l» nit 8X8 Punktrh. 

Die selbe Schrift in doppelter Höhe und Breite. 

Bei der vierfaclien Mölie sieht es so aus. 

Das ist die aditfache Höhe 

und Breite. 

Öcis gleiche Fonk 1 i Or» i er t «och bei 1SX1S Punkte«, 

der Ausdruck eiues 



Ein Proheuusdruck, der sicherlich die Vielseitigkeit des Baimerdruck-Progrwnnis verdeutlicht 
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Systemtuning 

Formatierte Ausgabe 
a uf den Drucker 

Kurz nachdem die PCI 6/7’90 fertigKcstellt war, 
erreichte uns ein Schreiben vom Autoren des Artikels 
’SystemtunIng’. Nach der Lektüre dieses Artikels 
werden Sie in der Lage sein, unter C mit ’printfO’ 
auch Druckerausgaben zu tätigen. 


Mit zwei winzigen Änderungen in den 'printf- und ‘io- 
lib'-Bibliotheken kann ’printfO’ in vollem Umfang für die 
Druckerausgabe genutzt werden. Und dies einschließlich der 
Einstellung aller Druckerparameter. 

Dazu geht man folgendermaßen vor: In der ’ printf 1’- und 
’printO-Bibliothek’ in der Zeile 

if (device = = ((device&31)) I ((device < 8) & (device > 4))) 
die Acht in eine Neun abändern. 

Diese Zeile steht ziemlich am Anfang der Quelldatei. Dann 
werden die Dateien wieder neu compilierl (cc -M printfl) 
und assembliert (zmac printfl = printfl). In den Header-Da¬ 
teien ’printfl.h' und ’printß.h’ fügt man die Definition 
#define LPT 8 hinzu. Zum Schluß ist noch eine kleine Er¬ 
gänzung in der ’iolib-Datei' notwendig. Man lade also *io- 
lib.c’ in den Editor und suche dort die Funktion ’putbO*. 
Dort werden drei Zeilen eingefügt: 

putb(c,unit) char c;int unIt; /*wTite a byte to a Tde*/ 

[int index,w'error; 
char *next; 

if(unit = = l)/* STDOUT */ 

fcpm(2,c); 

return c; 


if (unit= =8) 
[ cpm(5,c); 
return c; 


Index = unit-5; 
if (fchk(index)! = MWRITE) 

[err(“CAN \ ’T WRITE TO INFILE“); 

exitO; 

! 

If (fnext[index] = =flastfmdexl) werror = fflush(uiiit); 

Danach wird 'iolib’ in gewohnter Weise neu compiliert und 
assembliert. Wenn nun eine Ausgabe mit ’printfO’ auf den 
Drucker erfolgen soll, wird einfach die Konstante ’LPT' vor 
den Format-String gesetzt, in gleicher Weise wie die Varia¬ 
ble mit der File-Kennung beim Schreiben in eine Datei; 

printf(LPT,“%s\n“,“das erscheint jetzt auf dem 
Drucker“); 

Alle Möglichkeiten von ’printfO’ können dabei uneinge¬ 
schränkt genutzt werden, es gibt nichts, was nicht gehl. Dar¬ 
über hinaus können sehr einfach alle Druckerparameter ein¬ 
gestellt werden, indem man die entsprechenden Steuercodes 
einfach in den Format-String mit hineinschreibt: 

priiitf(LPl’,“\33\niM%s\n“,“Das ist Pica Schön¬ 
schrift“); 

Um die Steuercodes, also Zeichen unterhalb der ASCII- 
Numnier 32, an den Drucker zu schicken, bedient man sich 
in BASIC des Befehls CHR${..). In C kennt man diesen Be¬ 
fehl nicht, man hilft sich statt dessen mit dem Fluchtsymbol 
\ . Im obenstehenden Beispiel entspricht die Zeichenfolge 
N 33 \ m \ 1 dem BASIC-Ausdruck CHR$(27);“'m‘';CHR$ 
(1). Warum wird aber 27 in C zu 33? Ganz einfach, Ziffern- 
folgcn hinter dem Fluchtsymbol werden immer oktal, also 
mit der Zahlenbasis acht ausgewertet. Die Umrechnung ist 
einfach: 27:8 == 3. Rest 3. Also einfach die Dezimalzahl so 
lange durch acht teilen, bis ein durch acht unteilbarer Rest 
übrigbleibt, den addiert man dann zum Ergebnis dazu. Wird 
ein Buch.stabe hinter das Fluchtzcichen geschrieben, so wird 
der ASCIl-Wert des Zeichens übergeben. Auf diese Weise 
können im Format-String von ’printfO’ alle Druckereinstel¬ 
lungen vorgenommen werden. Lediglich bei Superscript und 
bei der Zurückstellung auf Enlwurfsqualität muß man einen 
anderen Weg gehen, da in diesen beiden Fällen “0“ überge¬ 
ben werden müßte, das Zeichen “ \ 0“ aber bereits von C für 
das Zeichen mit dem ASClI-Code Null reserviert wurde, 
Hier kann die Druckereinstellung nur über den ‘epmO-Be- 
fchl’ erfolgen. Dies würde zum Beispiel bei SuperScript so 
ausschen: 

cpm(5,27);cpm(5,83);cpm(5,0); 

Vor ähnlichen Problemen würde man stehen, wollte man das 
Zeichen ’n' übergeben, da ’ \ n' für den Zeilentrenner reser¬ 
viert ist. Doch ’n’ brauchen wir zum Glück nicht tür unseren 
Drucker. Ein Hinweis noch: Wenn bei Druckerbefehlen 
Zahlen auftreten. muß man unterscheiden, ob der Zahlen¬ 
wert gemeint ist oder der ASCIl-Wert. Steht die Zahl nach 
einem Buchstaben, so ist der Zahlenwert anzugeben. 

(Peter Sclkc/rs) 
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Eine Programmierhilfe in englischer 
Sprache für BASIC-Fans 

Um es vorwegzunehmen: JUMBO ist kein Programm für Tierfreunde oder 
für Zoologen, obwohl der Programmname darauf hindeuten mag! Was aber 
hat der graue, massige Dickhäuter ’JUMBO’ mit der Programmiersprache 
BASIC zu tun? 
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Zunächst möchte ich anmerken, daß 
ich bei der Beschreibung die folgenden 
Abkürzungen verwenden werde: LW 
= Laul'werkfe), DISK = Diskette, 
[RET] = RETURN. In Klammern Ste¬ 
hendes, zum Beispiel [C] bedeutet, daß 
die entsprechende Taste zu drücken ist. 

Wie man auf JUMBO unter 
CP/M PLUS zugreift 

Hinter JUMBO verbirgt sich eine sehr 
umfangreiche Sammlung von 204 Files 
im Umfang von 414 kByte, die auf dem 
AMSTRAD PCW 8256 mit 1 LW und 
den PCW 8512 mit 2 LW läuft; auch 
für den PCW 9512 soll es eine eigene 
Version geben. 

Nach dem Start der CP/M-PLUS- 
DISK meldet sich das Prompt ‘A>'. 
Die JUMBO-DISK wird nun ins LW 
B> gegeben. Mit A> DIR B:. [RET] 
kann man nachsehen, welche BASIC- 
Befchlc und sonstigen Kommandos 
sich im einzelnen auf der JUMBO¬ 
DISK befinden. Die Namen der Files 
entsprechen weitgehend den Bezeich¬ 
nungen für die MALLARD-BA- 
SIC-Befehlc, wie sie im BASIC-Hand- 
buch zu finden sind. 

Der Zugriff auf die einzelnen Files be¬ 
ziehungsweise Befehle ist einfach: Aus 
der Ma.sse der JUMBO-Files angelt 
man sich den gewünschten blitzschnell 
mittels A> TYPE LW:Dateiname, 
[RET] heraus. Möchte man zum Bei¬ 
spiel näheres über ’WHILE’ erfahren, 
so gibt man A> TYPE BiWHILE, 
[RET] ein, und auf dem Bildschirm 
wird der Befehl dann übersichtlich dar¬ 
gestellt. 

Durchblättern kann man alle Files mit 
A> TYPEB:*.*[pagc], [RET] und ei¬ 
nem [RET] nach jedem File; [STOP] 
beendet die Bildschirmausgabe. 

Wie man auf JUMBO unter 
MALLARD-BASIC zugreift 

Interessant wird der Einsatz von JUM¬ 
BO jedoch erst, wenn man unter MAL¬ 
LARD-BASIC programmiert. Nach 


dem Start von BASIC mit A> BASIC, 
[RET] erscheint das Prompt OK. Nun 
programmiert man wie gewohnt lustig 
drauflos. Bleibt man zwischendurch 
stecken, weil nach der langen Nacht die 
Erinnerung mal wieder aussetzt, so be¬ 
nötigt man ohne Zweifel die Hilfe von 
JUMBO. Unter BASIC greift man ähn¬ 
lich wie unter CP/M PLUS zum Bei¬ 
spiel mit TYPE B:F. [RET] auf die Da¬ 
tei ’F’ zu, und der Inhait von ’F’ wird 
umgehend auf dem Bildschirm ausge¬ 
geben. Perfektionisten können sich 
über [EXTRA], [PTR] die Darstellung 
auf dem Bildschirm auch als Hardcopy 
auf dem Drucker ausgeben lassen. Fast 
alle Dateien enthalten abschließend ei¬ 
nen Querverweis auf andere Files, zum 
Beispiel bei ’WHILE' auf ’WEND- 
FOR’. 

Anmerkungen zur Anleitung 

Die mitgelieferte Anleitung ist sehr 
kurz gehalten und besteht aus nur weni¬ 
gen Sätzen. Um mit JUMBO zu arbei¬ 
ten, werden über diese Beschreibung 
hinaus keine besonderen Kenntnisse 
(außer einigen 'Brocken’ Englisch) be¬ 
nötigt. 

Sicher gibt es unter den Lesern der PCI 
einige, die JUMBO bereits besitzen be¬ 
ziehungsweise aufgrund dieses Arti¬ 
kels erwerben und die in der Lage sind, 
das Programm um eigene Hinweise zu 
erweitern. Es würde mich und andere 
Leser sicher auch interessieren, wie 
das zu bewerkstelligen ist. Das Einle¬ 
sen der Files unter einem Editor wie 
RPED klappt zum Beispiel gut. aber 
mit dem Abspeichern hapert’s dann. 
Wie wär’s also mit einem Leserbrief.^ 
(Detlef Gehring/rs) 

Hinweise zur Bestellung 

Wenn Sie JUMBO direkt in England bestellen, so müs¬ 
sen Sie angehen, fiir wWcAfn Compuierryp Sie J UM BO 
haben möchten (zum Beispiel JUMBO fi/r AMSTBAD 
PCW Model 8256 wich drive A ' beziehungsweise .. 
Motlel 8512 wieh drive B '. Fügert Sie einen auf die nach¬ 
folgend genannte Finna ausgestellten Euroscheck älter 
engi. Pfund £ 14.95 bei: CBS SERyfCES, J6 Tremaine 
Chtse, Heamnor. Nr. Penzance, Cornwall TRI8 3()R 
(Telefon: CB 0736/50488}. Vergessen Sie nicht. Ihre ei¬ 
gene Telefonnummer anzugeben, damit Mr. Gibh.s .Sie 
gegebenenfalls persönlich aiirufen kann! Trotz Zoll «ler- 
den Sie Ihr Prftgramm sehr .schnell hekommen. 
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Erweitertes System 

Neue Kommandos für CP/M 

Der Begriff der residenten Systenierweiterung, im CP/M-Systeni unter der 
Bezeichnung RSX (Resident System Extension) bekannt, wurde Ja schon 
mehrfach in früheren Ausgaben dieser Zeitschrift erläutert und beschrie¬ 
ben. Es handelt sich hierbei um Hrogramm-Module, die alleine oder in 
Verbindung mit anderen Programmen in den Arbeitsspeicher des Rechners 
geladen werden und dort, Je nach Funktion, speicherresident installiert 
werden können. Beispiele für die Verwendung von RSX-Modulen sind die 
CP/M- Dienstprogramme SAVE.COM, welches ausschließlich aus einem 
RSX-Programm besteht, oder SUBMTT.COM, dem das RSX-Progranim 
(iET ’aiigehängt’ wurde. 


Wird ein solches Programm aufgeru- 
len und in den Arbeitsspeicher Ihres 
Rechners geladen, so werden die vor¬ 
handenen RSX-Module vom CP/M- 
Ladeprogramm (ebenfalls nichts ande¬ 
res als ein RSX-Modui) automatisch in 
den 'oberen' Bereich des Speichers, di¬ 
rekt unter das Betriebssystem verscho¬ 
ben. Über spezielle Funktionsaufrufe 
kann das Anwenderprogramm dann 
mit der RSX kommunizieren. In den 
meisten Fallen werden solche ’System- 
erwcitcrungen' für Funktionen be¬ 
nutzt. die standardmäßig nicht vom 
CP/M-System unterstützt werden und 
darum jeweils vom Anwender selbst 
programmiert werden müssen, wie 
zum Beispiel Grafikrouiinen. Nach der 
Beendigung des Anwenderprogramms 
werden die Systemerwcilcrungen dann 
meist auch wieder entfernt, um den be¬ 
legten Speicherplatz für das nächste 
Anwenderprogramm frei zu machen. 
Die im folgenden beschriebenen Sy- 
stemerweiteriingen sind jedoch keine 
zusätzlichen Funktionen für Anwen¬ 
derprogramme. sondern sollen die 
Möglichkeiten des CP/M-Sysiems 
selbst erweitern. 

Intern e und exte rne 
Kom ma ndos 

Wenn CP/M einen Arbeitsprozeß 
durchführen soll, muß der Anwender 
dies einem Systemprogramm, dem 
Console Command Processor (CCP). 
in Form eines Befehls oder Komman¬ 
dos über die Ta.statur milteilcn. Verein¬ 
facht ausgedrückt sind diese Komman¬ 
dos nichts anderes als Namen von Pro¬ 
grammen. die entweder schon im 
CP/M-System vorhanden sind (interne 
Kommandos) oder von Diskette nach¬ 
geladen werden müssen (externe Kom¬ 
mandos). Damit wdrd auch schon der 
Unterschied deutlich. Interne Kom¬ 
mandos sind, da sie sich ja schon im 
Speicher des Rechners befinden, um 


ein Vielfaches schneller in der Ausfüh¬ 
rung als externe Kommandos. Aber 
auch die Nachteile sollten nicht ver¬ 
schwiegen werden. Dadurch daß die 
internen Kommandos als Teil des 
CP/M-Systems beim Urladen (Booten) 
mit in den Speicher geladen werden, 
steht dieser Speicher dem System- oder 
Anwenderprogramm nicht mehr zur 
Verfügung. Darum gibt es für viele in¬ 
terne Kommandos gleichnamige exter¬ 
ne Kommandos (Programme), die für 
erweiterte Funktionen aufgerufen wer¬ 
den können. 

Hierzu zählen insbesondere die Kom¬ 
mandos DIR. TYPE. ERASE (ERA) 
und RENAME(RHN). 

Will man nun die verkürzte Ausfüh- 
rung.szcit der internen Kommandos mit 
den erweiterten Möglichkeiten der ex¬ 
ternen Kommandos verbinden, so bie¬ 
ten die JOYCE-Rechner (PCW 8256/ 
8512) eine einfache Lösung: die RAM- 
Disk. Ein Programm, welches sich auf 
der RAM-Disk befindet, muß zwar 
auch erst in den Arbeils.speicher gela¬ 
den werden, bevor es ausgeführt wer¬ 
den kann, doch gehl dies viel schneller, 
als wenn das Programm von einer Dis¬ 
kette geladen werden müßte. 

Es liegt nahe, eventuelle Erweiterun¬ 
gen. also zusätzliche Kommandos, 
ebenfalls auf der RAM-Disk abzule¬ 
gen. um sic dann bei Bedarf in den Ar- 
beit.sspeicher des Rechners zu laden 
und auszuführen. 

Allerdings wäre cs äußerst unwirt- 
.schaftlich. für jedes neue Kommando 
ein separates Programm zu schreiben, 
denn aufgrund der Formatierung der 
RAM-Disk belegt jedes Programm 
mindestens 2 kByte Speicherplatz, 
auch wenn es nur aus wenigen Bytes 
besteht. Sie können sich sicher aus¬ 
rechnen. wie viele Programme bezie¬ 
hungsweise Kommandos Sic auf diese 
Art zusätzlich auf die RAM-Disk spei¬ 
chern können. Damit kommen wir wie¬ 
der zu den anfangs erwähnten RSX- 


Programmen. die ’ancinandergehängt' 
werden können und dann, als ein einzi¬ 
ges Programm abgespeichert, bedeu¬ 
tend weniger Platz beanspruchen. Da¬ 
mit die einzelnen Kommandos aber 
auch mit ihrem Namen aufgerufen wer¬ 
den können, benötigen wir noch ein 
kleines Kontrollprogramni. welches 
zugleich mit den Kommandoerweite- 
rungen geladen wird und dafür sorgt, 
daß das richtige Kommando au.sgeführt 
werden kann. Alles zusamniengefaßt 
erhält dann den Namen COMMAND 
.COM und bildet eine modulare Erwei¬ 
terung des CP/M-Systems. die Sic als 
Anwender nach Ihren eigenen Wün¬ 
schen selbst zusammenstellen können. 

Modulare Systemerweiterung 

Die hier beschriebenen 'neuen' CP/M- 
Kommandos stellen nur eine kleine 
Auswahl dar und sollen als Anregung 
dienen, wie Sie in Zukunft Ihr System 
erweitern können. Jedes einzelne 
Kommando wird dabei als RSX-Modul 
programmiert, das bedeutet, es benö¬ 
tigt einen sogenannten RSX-Header als 
Vorspann. Dieser RSX-Header wird 
vom CP/M-Ladeprogramin benötigt, 
um das Programm-Modul in die Reihe 
eventuell schon vorhandener System¬ 
erweiterungen einzureihen. 

Der Aufruf erfolgt durch Eingabe des 
Kommandos (= RSX-Name) mit vor¬ 
angestelltem Plus-Zeichen (-I-). An 
diesem Zeichen erkennt das Kontroil- 
programm. daß es ein erweitertes 
CP/M-Kommando aufrufen und aus¬ 
führen soll. Folgende Kommandos sol¬ 
len hier vorgestellt werden; 

+ EX1T 

Dieses Kommando dient dazu, das 
Konirollprogramm zu verlassen und 
alle Systemerwcilcrungen zu löschen. 
Beim Laden von COMMAND.COM 
wird dieses RSX-Modul fest im Spei¬ 
cher installiert, damit zukünftige Kom¬ 
mandoaufrufe an das Kontrollpro- 
gramm wcitergeleitet werden können. 
Mit EXIT wird diese Überwachung der 
Kommandoaufrufe abgeschaliel, so 
daß Sie wie gewohnt mit Ihrem CP/M- 
System arbeiten können. Ein erneuter 
Aufruf von COMMAND.COM akti¬ 
viert und installiert EXiT wieder im 
Speicher. 

-hECIIO [ON/OFF] 

-l-ECHO [Ausgabe-Meldung] 

Mit ECHO kann die Kontrollausgabe 
von Meldungen bei der Ausführung 
von SUBMIT-Dateien aus- und einge¬ 
schaltet werden. ECHO ohne zusätzli¬ 
che Angabe von Parametern zeigt den 
augenblicklichen ECHO-Statusan. Die 
optionale Ausgabcmeldung ermöglicht 
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die Ausgabe von Konirollmeldungen, 
wenn die ECHO-Funktion ausgeschal¬ 
tet ist. 

-t-PAUSE [Ausgabe-Meldung] 

Das PAUSE-Konimando unterbricht 
die Ausführung einer SUBMIT-Datei, 
wenn ein Diskcllcnwechsel notwendig 
oder eine Überprüfung vorhandener 
Bedingungen erforderlich ist. Bei der 
Ausführung des Kommandos erscheint 
die Meldung 

Weiter mit heliehiger Taste... 

Mit Druck auf eine beliebige Taste 
kann dann die Ausführung fortgesetzt 
werden. Wird die STOP-Taste (TC) be¬ 
tätigt, erscheint eine neue Meldung: 
Stapelverarbeitung abhrechen? (J/N): 
Die 'J'-Taste bricht die Ausführung 
der SUBMIT-Datei ab. Die optionale 
'Ausgabe-Meldung’ kann dazu benutzt 
werden, Kontrollmcldungen auszuge¬ 
ben, wenn die ECHO-Funktion ausge¬ 
schaltet ist. 

+ CLS 

löscht den Bildschirm und setzt die 
Schreibmarke in die linke obere Ecke 
des Bildschirms. Dieses Kommando ist 
nützlich, wenn man vor dem Start eines 
Programms einen definierten Zustand 
des Bildschirms benötigt. 

-f-ZS [n] 

schaltet den Zeichensatz für Bild- 
.schirm und Drucker um (n = Zeichen¬ 
satznummer). Wird kein Parameter an¬ 
gegeben, zeigt ZS den gerade ausge¬ 
wählten Zcichensatz an. 

-1-BEEP 

BEEP gibt ein Signal aus. um zum Bei¬ 
spiel bei längeren Prozessen über das 
Ende oder über Fehler informiert zu 
werden. 

+ DATE [TT.MM.JJ1 
DATE ermöglicht, ähnlich dem gleich¬ 
namigen CP/M-Dienstprogramm 
DATE.COM. die Ausgabe bezie¬ 
hungsweise Ncucinstellung des Da¬ 
tums. Wird DATE ohne Datumseinga¬ 
be aufgerufen, wird das aktuelle Da¬ 
tum angezeigt, und Sie werden aufge¬ 
fordert, eventuell ein neues Datum 
einzugeben. Wenn Sie dann nur die 
RETURN-Taste betätigen, wird das 
Datum nicht verändert. 

+ T1ME1HH:MM:SS] 

TIME ermöglicht die Anzeige bezie¬ 
hungsweise Neueinstellung der Sy- 
stemzeit. TIME ohne zusätzliche Zeit¬ 
angabe zeigt die aktuelle Systemzeit 
an, anschließend werden Sie aufgefor¬ 
dert. eine neue Zeit einzugeben. Wie 
beim DATE-Kommando bricht die 
RETURN-Taste die Eingabe an die.ser 
Stelle ab. 


Die Angabe des Sekundenwertes ist 
übrigens optional, wird er weggelas¬ 
sen. wird die Zeit automatisch auf 
HH:MM:00 gesetzt. Eine zusätzliche 
Aufforderung 

Bitte Taste drücken, um Zeit zu 
.setzen... 

ermöglicht das sekundengenaue Selzen 
der Zeit. 

Wie anfangs schon gesagt, sollen diese 
Kommandos nur als Beispiel dienen, 
wie Ihr 'persönliches' CP/M-Sysiem 
erweitert werden kann. Ihrer Phantasie 
sind nur durch die Hardware des 
JOYCE-Rechners Grenzen gesetzt. 

Nun gehU.s ans Eingemachte.,. 

Um nun diese Kommando.s benutzen zu 
können, müssen noch einige Details bei 
der Programmierung beachtet werden. 
Beim Festlegen der Adressen muß dar¬ 
auf geachtet werden, daß RSX-Module 
relokulisierbar bleiben müssen (= im 
Speicher verschiebbar), darum Vor¬ 
sicht bei der Verwendung von ORG- 
Staiements im Assembler-Quelltexl! 
Nach dem Assemblieren wird mit 
dem Dienstprogramm LINK.COM zu¬ 
nächst eine PRL-Datei erzeugt: 

LINK rs.xfile (OP] 

Der Dateiname 'rsxfile' steht hier na¬ 
türlich für den Namen des RSX-Mo- 
duls, das Sie erzeugen w'ollen. 

Die so entstandene PRL-Datei wird mit 
REN rsxfile.RSX=rsxße.PRL 
in die endgültige RSX-Datei unibe- 
nannt. 

Für die oben beschriebenen Komman¬ 
dos können Sie auch die hier abge¬ 
druckten DATA-Lader benutzen. Sic 
erzeugen dann unter Mallard-BASIC 
automati.sch die benötigten RSX-Mo- 
dulc. 

Aber Sie brauchen auch noch das Kon- 
trollprogramm, hier mit COMMAND 
.COM bezeichnet, wie das spätere 
Haiiptprograinm auch. 

Für die.ses Programm ist ebenfalls ein 
DATA-Lader vorbereitet, damit es ein¬ 
facher geht. 

Nachdem alle benötigten Programm- 
Müdule fcniggcsiclh .sind, müssen sic 
noch miteinander 'verbunden' werden. 
Dazu verwenden wir das CP/M-Dienst- 
programm GENCOM.COM. mit dem 
cs möglich ist. RSX-Module und nor¬ 
male Programme zu verbinden. 
Gleichzeitig kann GENCOM dazu be¬ 
nutzt werden, bestimmte Informatio¬ 
nen im .sogenannte System Control 
Block (SCB) des CP/M-Systems zu än¬ 
dern. Für unsere Kommandoerweite¬ 
rung ist dies notwendig, damit zum 
Beispiel die Kommandos zunächst auf 


der RAM-Disk gesucht werden bezie¬ 
hungsweise damit auch SUBMIT-Da- 
teien automatisch aufgerufen werden 
können. Zum Verbinden der RSX-Mo¬ 
dule verwenden Sie bitte folgendes 
Kommando: 

CsENCOM COMMAND EX/T r.sxßleJ 
rsxple2 ...fSCB = (I8.08) 
SCB=^(4C,0D) SCB==(4D.OO) 
SCB=(50,0D)J 

Für 'rsxfilel ...’ etc. können die oben 
beschriebenen Kommandos oder Ihre 
eigenen RSX-Erweiterungen einge¬ 
setzt werden. Das Kommando EXITÖst 
übrigens immer erforderlich, denn 
sonst können die erweiterten Komman¬ 
dos nicht aufgerufen w'crdcn. 
Außerdem sollten solche Kommandos, 
die fest im Speicher installiert werden, 
immer zuenst in der Reihenfolge der 
RSX-Module stehen, damit .sie bei der 
Installation möglichst weit 'oben' im 
Speicher liegen (oben angeführtes 
ECHO-Konimando gehört dazu!). Da¬ 
mit wir unsere Kommandoerweiterung 
auch automatisch schon beim Urladen 
starten können, muß ein kleiner 'Patch' 
am System-File (J14GCPM3.EMS 
oder J12GCPM3.EMS) vorgenommen 
werden. Die SUBMIT-Dateien PV14 
.SUB bezichungswei-se PV12.SUB (je 
nach CP/M-Version. siehe Listing 
II-1-12) erledigen dies automatisch, 
wenn Sie folgende Programme oder 
Dateien nach Laufwerk M: kopieren: 
SID.COM, SUBMIT.COM. JxxG- 
CPM3.EMS (Ihr Sy.stem-File), PVxx 
.SUB (die Patch-Datei). Starten Sie 
den Vorgang dann mit 
M: >RETURN< 

SUBMlTPV.xx > RETURN> 

XX steht jeweils für die Nummer Ihrer 
Systemversion. Ihre CP/M-Datei wird 
nun geändert, und wenn dies abge¬ 
schlossen ist, müssen Sie nur noch 
COMMAND.COM und die 'gepatch- 
te’ CP/M-Datei auf die Boot-Diskette 
(Slartdiskette) kopieren. Nun haben 
Sie die erweiterten Kommandos instal¬ 
liert. Damit sie auch von der RA.M- 
Disk aus gestartet werden können, soll¬ 
te die Datei PROFILE. SUB ihrer Boot- 
Diskette das Kommando 
P!P M: = COMMAND. COM (OJ 
enthalten. COMMAND.COM wird 
dann auf die RAM-Disk kopiert und 
.steht für zukünftige Aufrufe zur Verfü¬ 
gung. 

(Norbert Finke/rs) 
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Biete Hardware 


2 STÜCK CPC 6128 GRÜN + a^-ZWEIT 
LAUFWERK + SOFTWARE + CPC-SONDERH, 
+ CPC-BÜCHER GÜNSTIG ZU VER¬ 
KAUFEN TEL:02225/17484 


Gebrauchtcomputer mit Garantie 
SCHNEIDER - AMSTRAD - PEACOCK 
CPC's * JOYCE • PC * XT * AT * 
HARDWARE 

SOFTWARE * ab sofort noch* 

BÜCHER * günstiger * 

ZEITSCHRIFTEN **•**•••••**•*** 
Ersatzteile & Reparaturdienst 
Alles zu echten Superpreisen, 
Ständiger Ankauf 
Höchstpreise für Ihren "ALTEN“ 
bei Computer-NEUKAUFllll 
Sofort unseren KATALOG anford. 
Schutzgebühr 3,- DM in Marken 
oder einfach anrufen! 

EDV-Cloots 

5132 Übach-Palenberg 5 

Zeisstr. 7 Tel.: 02451/46608 G 


Schneider Tower AT kompl. mit 
Multiscan-Monitor u. umfangr. 
Zubehör, neu 6 Mon,, ca. 30 ßetr.-Std. 
4000,- DM, Tel. 071 62^3626 


CPC664COLOUR - OATAREC,ORIG.SPIEL- 
DISC. UND KASSETTEN, 02631/75001 


CPC 464 grün 4 DDI-l.VB DM 460,00 
SOTWARE + BUECHER, Tel. 02852/2480 


JOYCE & PC, 720 KB, 3,5" FLOPPY FÜR 
UMBAU NACH PC INTERNAT, 3 + 4' 90 
MITSUMMSa-DM (READY DEFEKT} 
TEAC189,-DM (READY OK} 

TEAC 5 1 /4" 209, - DM (READY OK} 
KERSTING KRÖGER GRAßHOFF GbR 
ROESOLL 36,2305 HEIKENDORF G 


EINMALIG! CPC464 mH Grünmonitor, 
Tape, 1 Joystick und mehr als 
50 Cassetten inc. Anwendungs¬ 
programme u. Superspiele für 
nur320,-DM, TEL:06832/7621 


6128 grün + 51/4" Zweitfloppy + Super¬ 
software (div. Anwend. 4 über 100 
Spiele) 650,- (VHB); VORTEX 
Speichererweiterung 256K (464) 

100,-;02 21-215302 (abends) 


JOYCE-PCN-8512 M. ZUBEHÖR UND 
SOFTWARE ABZUG. TELO7805,^36 55 


CPC 6128 Grünmonitor 4 div. 
Bücher zu verkaufen, VB 150, - 
Tel. 0931.'93403 (ab 19,00 Uhr) 


CPC6128500,- DM,2.LW200,- DM,NLQ40 
1 250,-OM, Orig. PRO-DESIGN 1/2 NP:DESK- 
ROYAL 1.2 NP: Literatur 0 5361/31684 


GRAFPAD f. CPC's (PCs), z. Selbstpro- 
grammieren,Joystickanschluß, 159, - DM, 
54 Tasten 05109,'4112 G 


CPC 612a'Color 4 Grün 4 2.LW3''4 
Monitorumschalter 4 Schutzhauben 
4 Joystick 4 div. Zubehör = 730, - DM, 
Software: Wordstar 3.0 * 60, - DM, 

Elite 4 Sorcery 4 ISSpiele = 122,- DM, 
50 Disketten Maxell 3" = 180,- DM, 

Aufschlag bei Einzelabnahme: 

10% je Artikel, Tel. 0 7164-43 92 


CPC 464 4 Farbe 4 DDI -1 + 50 Spiele 
4 Progr. 4 DB-Lit.,Tel.06236/54804 


VERK, CPC 464 + FARBMONITOR CTM 
644 UND ca, 50 SPIELE. PREIS VS. 
TEL 069/563615, ab 17.00 UHR 


CPC 464 mit Monitor GT65 u. 
vielen Spielen f. DM 350, - zu verk, 

0 , Tausch gegen C64, Tel, 0 60 22/2 2497 


CPC464,128KB. FARBMONITOR, 2 
DISC DDI 4 3"CUMANA,SOFTWARE, 
VB500,- DM, TEL 05321-2 9488 


AMSTRAD DMP 3160; VB 250, 160 

ZISEK,; Tel, 089.'8144655, AB 17.00h 


FLOPPY * FD720 * EXTLV * EUROPC (4M0, 
GARANT] NP400,-,VB250,- DM,069842880 


JOYCE PCW 8256 

WEGEN SYSTEMWECHSEL ABZUGEBEN 
EXTERNES 5 1/4-ZOLL-LAUFWERK. 
SOFTWARE - LITERATUR, PREIS VB 
TEL:09374/1029, A818UHR 


Suche Hardware 


Aufsteiger kaufen ihren “Neuen" 
nur bei EDV-CLOOTS G 


Biete Software 


Schneider CPC Public-Domain- 
Software: Spiele 4 Anwenderprg. 
Verm. Tausch, Verk. frank. Rück¬ 
umschlag an: K. Bartram, Haardt- 
waldstr, 1,6000 Frankfurt 71 


“Machen Sie Ihren Computer zu Gold!“ 
Ungewöhnlich selbständig machen mit 
neuen lukrativen Unternehmens¬ 
konzepten im Bereich Computer- 
Persönlichkeits-Analysen. Gratis¬ 
info AMI anfordern bei PROFImade, 
c/o bep, Dorther Weg 14. 

5449 Leiningen/Lamscheid 

Tel, 06746.'82 19, Fax 06746/8276 G 


PD-SOFT FUER CPC GRATIS-LISTE 
BEI: PD-POWER, CPC, POSTFACH 152, 
D-2055 AUMUEHLE 


• CPC-PD SPIELE 4 ANWENDERPRG.» 
LISTE 100PF bei: Peter Breuker, 
Rektenstraße 10,4930 Detmold 1 


CPC-SPIELE (DISK) ab 12,-OM 
nur bei EDV-CLOOTS G 


* Wirtschaftliche Programme * 

* für die Arztpraxis auf * 

* dem Schneider CPC Joyce, PC * 

* Fa. EFFEKTA, Am Wiggert 9c 

* 45 Osnabrück, 05 41/44 2416 G 


** Dias ordnen mit dem Computer •* 
CPC 464/664.''6128, JOYCE und PC 
bis zu 100000 Dias; Suchzeit 
1 Sekunde. Info gegen Rückporto 
bei: Dipl.-Ing. W. Grotkasten, 

Birnenweg 6,7060 Schorndorf 
Tel.07181.''42846 G 


# # BONZO'S SUPER MEDDLER # t 
überspielt Kopiergeschützte 
Programme von Kassette auf Diskette, 
auch für neueste Kopierschutzmetho¬ 
den geeigneti 3'‘-Disk mit über 
1200 (!!!) Lösungshinweisen 
nur DM 65, - + Versandk. Infos gg. 
Freiumschlag: MARTINA 
HIPPCHEN, PF 10 09 66. 5000 Köln 1, G 


D8ASE(6128} 75, -, div, orig. Spiele 
ab5,-:0221-215302 (abends) 


ACHTUNG!! ERWACHSENE 
12 Disk. 5 1.^4 oder 3 1/2 mit delikaten 
Programmen f, IBM PC'Kompatible 
Nur DM 40, - VS/Bar. M. Karbach 
Remscheider Str. 18,5650 Solingen G 


ENDLICH! PO-SOFTWARE AB DM 1. - 
Für IBM.’Kompat. Kat.-Disk, gratis. 

M. Karbach, Remscheider Str.18 
5650 Solingen 1 G 


# CPC&JOYCE PUBLIC DOMAIN # 

# Ein Info istfur2x100Pf erhältlich # 

# PDI, Pf 1118, D-6464 Linsengericht G 


CPC-Games günstig abzugeben!!! 
Liste kostenlos von St. Quandt 
Breitestr. 9-11,2210 Itzehoe 
Disc,:10, - DM, Paperware: 1, - DM 


Verkaufe über 50 Spiele ab 5, - DM 
Alles Originale, z.B. Sidewalk und viele 
andere! Björn Schmidt; Peltzerberg 4; 
2200 Elmshorn, 100% Antwort!! 


Orig. C-Compilerf. CPC; Disk, + 
Handbuch; 130,- DM:06821/57263 


Verkaufe wegen Systemwechsef 
Programme u. Spiele für Joyce PCW 
8256''8512 zum halben Preis 
Tel.071 41,'35998 (ab 18 Uhr) 


Suche Software 


CPC 6128: SUCHE SCHACHPROGRAMM, 
MIT DEM STELLUNGSDIAGRAMME 
AUSGEDRUCKT WERDEN KÖNNEN. 
OMP 2000,040/796 5812 


Bards Tale 2&3-Thunder Blade- 
Oouble Dragon-Archon-R-Type- 
Batman T.M-Strider-Super 
Wonderboy all Disc. 0405501272 


Verschiedenes 


DATENÜBERTRAGUNG: CPC auf PC 
ASCH und dSase-Daten gängiger 
Disk-Formate, Tel: 0 72 43/6 78 27 


R. Christiansen 
Computersoft- und Hardware, 
EDV-Verbrauchsartikef, 

Postfach 1315, D • 2390 Flensburg 
Tel.: 0461/28075 

Computer u. Druckertyp angeben. G 


upünk bringt Daten u, Progr. vom CPC 
u. JOYCE (m, CPS 8256) direkt zum 
PC'XT'AT. Transfer über die parallelen 
Schnittstellen. Komplett 158,- DM - NN. 
Info / Bestellung: CONCEPTION GmbH, 
Hubertusweg 14,2000 Hamburg 61, 
Telefon: 040/584503 
Telefax 040/587352 G 


Disketten-, Datenkonverlierung 
JOYCE, CPC auf MS-DOS, ATARI 
Bernd Drost, Schulstr. 67, 6382 
Friedrichsdorf, Tel, 061 75/604 G 


PCl-lnt. bzw. CPC-Schneider-lnt. 
von 10/85 bis heute günstig 
abzugeben. M. Ender, Kirschgarten- 
str, 89,6900 Heidelberg 


VK CPC-lnt. 10,12/85-8.’89 (46 Hefte) 
4 Sonderh. 5/87, Tel. 0 73 63/42 46 


Österreich: Schüler''Studentin 
für praktischen Austausch Joyce: 
Kurz-(Feri8n) oder langfristige 
Cooperation. Alles weitere 
telefonisch. 00437258/4600, 
MO-DO ab 17 Uhr, oder schriftlich 
unter Chiffre 90/00124 Pc 


PC Intern, fast kompl. Sonderhefte, 
günstig, Tel, 07572,''1015 


Computer m. Drucker von völligem Laien 
für Existenzgründung geschenkt 
od. geliehen gesucht. H. Roch, PSF 162 
DDR, 9300 Annaberg 


EDV-ZUBEHÖR, SPIELE. BÜCHER, PD- 
SOFTWARE. GRATISKAT. BEI: PDV, 
QUELLENWEG 37,7340 GEISLINGEN G 


SUCHE DEUTSCHSPR. ANLEITUNG FÜR 
"ADVANCED OCP ART STUDIO“ AUF 
CPC 6128 - VON RAINBIRD SOFTWARE 
HU8ERT SCHWARZ, OEOSBACHERSTR. 38 
7606 LAUTENBACH, ICH ERSETZE 
EVENTUELLE AUSLAGEN! 


München-Salzburg: SchülenStudentin 
gesucht für praktischen Austausch 
Joyce; Kurz-{Ferien| 
oder langfristige Cooperation, 

Alles weitere unter Tel.-Nr, 

089/5024161; Sa, So, auch sehr 
spät, oder schriftlich unter 
Chiffre 90'00123 PC 


Tausch 


SUCHE TAUSCHPARTNER FÜR CPC 
MIT 5 1.'4 ZOLL DISC.,80 (!) SPUREN. 
SCHICKT EURE LISTE BITTE AN 
NORBERT FROST, STEINENHAU- 
SENSTR. 35, 7000 STUTTGART -1 


TAUSCHE HANDBUCH CPC 464 
GEGEN HANDBUCH CPC 6128 
HERBERT PHILIPS, 

KAMPWEG 139 
4060 VIERSEN 11 


Club 


USER-CLUB für JOYCE-Anwender! 
Info gegen Rückporto von; 
JOYCE-USER-CLUB c/o Je. Berghof, 
Roseggerstr. 5.5600 Wuppertal 2 


CPC - USER - CLUB COLONIA - Der Club 
Für CPC-User' Clubztschr. mit 
vielen Tips (auch zu Spielen), 
Clubdiskette u.v.m. Info gegen 
2, - DM in Briefm. beim CPC-User- 
Club Colonia, Im Vogelsang 17, 

5000 Köln 50. Auch Ausland l!l 


Neuer Computer-Club in Neuss 
INTERSSENGEMEINSCHAFT COMPUTER 
NEUSS HCN). Die Mitglieder treffen 
sich jeden zweiten und vierten 
Samstag im Monat, der Clubbeitrag 
beträgt DM 10,- monatlich. Neue 
Mitglieder (ab 16 Jahre), auch 
Computerneulinge, sind herzlich 
willkommen. Kontakt: R. Ackermann, 
Fesserstr. 10,4040 Neuss 1, 

Tel. (02101)546168 


AMSTRAD-PC1512/1640-USER-CLUB 
bietet mtl. Zeitschrift, Software, Hilfe und 
mehr für alle. Inf. gg. Rückp. von Rolf Knorre, 
Postf. 20 0102,5600 Wuppertal 2 
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Kurs—I 


MS-DOS, die ersten 
Berührungen (7. Teil) 

Achtung, Umleitung! 

In dieser Folge des Kurses werden die restlichen exter¬ 
nen Befehle vorgestcllt, die sich auf zw'ei sehr interessan¬ 
te Features von MS-DOS beziehen: Laufwerksumleitun¬ 
gen und Pipes. 



MS-DOS ist ein sehr flexibles Be¬ 
triebssystem, welches dem Anwender 
einige Freiheiten gestattet. Zwei dieser 
Freiheiten sollen in dieser Folge vorge- 
stelll werden, die darüber hinaus die 
Befehlsübcrsicht der letzten beiden 
Folgen vorerst zum Abschluß bringen. 

Laufwerke auf Abwegen 

Es gibt mehr Laufwerke zwischen Dis¬ 
kette und Festplatte, als die Hardware 
vermuten läßt. MS-DOS unterscheidet 
nämlich zwischen physikalischen und 
logischen Laufwerken und verwaltet 
das physikalische Laufwerk A: als lo¬ 
gische Laufwerke A: und B: — wenn 
kein physikalisches Laufwerk B: vor¬ 
handen ist. Mit diesem Konzept der 
Schein-Laufwerke lassen sich nun eini¬ 
ge praktische Aktionen durchführen. 
Da ist zum Beispiel jenes kleine Pro¬ 
gramm aus der Public Domain, das nur 
die Laufwerke A: und B: kennt. Ei¬ 
gentlich schade, denn man hat eine gro¬ 
ße Festplatte und würde sic ganz gerne 
auch mit diesem Programm benutzen. 
Änderungen am Programm sind nicht 
möglich, was macht also der Festplat- 
tenbesitzer? Er leitet die beiden Flop- 
py-Laufwerkc ganz einfach auf die 
Platte um! Dafür stehen verschiedene 
Methoden zur Auswahl. Die einfachste 
ist die mit dem ASSIGN-Befehl. Er er¬ 
laubt es, einem Laufwerk einen ande¬ 
ren Kennbuchstaben zuzuordnen. Mit 

ASSIGN A=C und ASSIGN B»C 

wird erreicht, daß alle Zugriffe, die auf 
die Diskettenlaufwerke gehen, an die 
Festplatte C: weitergeleitet werden. A: 
und B: existieren nur noch logisch, die 
Hardware bleibt unbenutzt. Aber es 
kommt noch besser... 

Es können zwar Dateien abgelegt wer¬ 
den, die stehen jedoch zwischen den 
anderen Stammdaten der Platte. Schön 
wäre es, wenn man den umgclciteten 


Laufwerken gleich ein eigenes Ver¬ 
zeichnis auf der Platte zuweisen könn¬ 
te. Dies geht mit dem SUBST-Bcfehl, 
der ein Laufwerk mit einem Unterver- 
zcichnis verbindet. Mit 
SUBSTA: C: \U1SK_A 

und 

SUBSTB: C:NDISK_D 

erfolgen die Zugriffe direkt in die bei¬ 
den Unlcrverzeichnisse. die praktisch 
zum Hauptverzeichnis für A: und B: 
werden. Was logisch wie 
A:\TEST\DATEI.TXT aussieht, 
ist real C; n D1SK_A \ TEST \ DA¬ 
TEI.TXT. Diese Art der Umleitung 
kann auch zur Arbeitseiieichterung 
eingesetzt werden: Man kann beliebi¬ 
gen Schein-Laufwerken einen Pfad zu¬ 
ordnen und die dort enthaltenen Datei¬ 
en über den Laufwerksbuchstaben an¬ 
sprechen. Mit 
SUBST K: C: \ TEXTE\BRIEFE90 
wird aus dem Monsterpfad C: \TEX- 
TE \ BRIEFE90 \ ANGEBOT.TXT 
ganz einfach K:ANGEBOT.TXT. 
Dazu müssen jedoch genügend freie 
Laufwerksbezeichner geschaffen wer¬ 
den. was durch den Eintrag von 
LASTDRIVE=Z in CONFIG.SYS er¬ 
reicht werden kann. 

Eine originelle Variante der Umleitung 
ist JOIN, welches einen kompletten 
Datenträger zum Unterverzeichnis ei¬ 
nes anderen degradiert. Nach 

JOINC: A: V.i^LATTE 

ist im Verzeichnis A:\PLATTE der 
Inhalt von Laufwerk C: zu finden! 
Aber Vorsicht: Das umgeleitete Lauf¬ 
werk ist nicht mehr ansprechbar, was 
in unserem Fall Komplikationen geben 
kann... 

Laufwerksumleitungen sind nicht ganz 
ungefährlich, man kann sich schon in 
die Nesseln setzen. Das System .schiebt 
Sicherheitsriegel vor, denn extrem ge- 
lährliche Befehle wie beispielsweise 
FORMAT wirken nicht auf Schein¬ 


oder umgeleitete Laufwerke — nützli¬ 
che wie CHKDSK jedoch auch nicht 
immer. Allerdings verliert man bei 
sehr vielen Umleitungen auch den 
Überblick über die Verwicklungen, so 
daß man durch eigene Nachlässigkeit 
noch am ehesten Daten verlieren kann. 
Daher gilt die Regel; Laufwerksumlei- 
lung ja — aber mit Vorsicht und Sy¬ 
stem! 

Daten b itte hie r entlang... 

Eine andere Art von Umleitung hatten 
wir bei der Erstellung eines Batch-Files 
in einer früheren Folge schon kennen¬ 
gelernt; Die Umleitung von Ein- und 
Ausgaben an Dateien. Dieses Thema 
soll hier noch etwas vertieft werden. 
Aktiviert wird die Datenumlcitung 
über die Zeichen ' < ’ und ’ >', die ge- 
wis.sermaßen die Flußrichtung anzei- 
gen. Vor dem Zeichen steht das Pro¬ 
gramm, dahinter die Datei. Bei 
DIR > INHALT 

würde die Ausgabe des Directorys in 
die Datei INHALT erfolgen, bei 

DEBUG < LISTE 

würde DEBUG die in LISTE enthalte¬ 
nen Anweisungen ausführen. Statt ei¬ 
ner Datei kann die Ausgabe auch von 
einem Gerät empfangen werden: 

DIR > PRN 

sendet das Directory an den Drucker. 
Die Empfangsdatei wird normalerwei¬ 
se neu angelegt, mit ’ > > * können je¬ 
doch Daten an eine bestehende Datei 
angchängi werden. 

Die Umleitung funktioniert aber nur, 
wenn die Ausgabe über den dafür vor¬ 
gesehenen Standardkanal von DOS er¬ 
folgt. Dies ist zumindest bei allen 
Dienstprogrammen von DOS der Fall, 
viele Programme schreiben jedoch di¬ 
rekt in den Bildspeicher und können so¬ 
mit nicht abgelängen werden. Soweit 
ist die Kontrolle über den Datenfluß ja 
schön, aber der Anwender hat noch 
mehr Einfluß auf diese Kanäle, und 
zwar über die sogenannten Filter und 
Pipes. 
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Filter sind Dienstprogramme, die sich 
in den Datenfluß einschalten und die¬ 
sen manipulieren können. Drei solcher 
Filter gibt es bei MS-DOS, nämlich 
MORE, SORT und FIND - die Na¬ 
men sprechen schon für sich. 

Filtrierte Informationen 


MORE ist ein einfacher Filter, der Da¬ 
teien seitenweise auf dem Schirm aus¬ 
gibt. Er kann gut den TYPE-Befehl er- 
set7en, da MORE sehr viel komforta¬ 
bler ist: 

MORE < DATEI 

würde den Inhalt von DATEI seiten¬ 
weise ausgeben. Mit SORT kann der 
Inhalt einer Datei sortiert werden: 

SORT < CHAOS > SAUBER 
sortiert den Inhalt von CHAOS und 
legt die bearbeiteten Daten in der Datei 
SAUBER ab. Der Filter FIND erlaubt 
das Durchsuchen einer Datei nach ei¬ 
ner Zeichcnkctlc. 

FIND “Hallo“ TEXT.DAT 

durchsucht TEXT.DAT nach der Fol¬ 
ge “Hallo“ und zeigt die jeweiligen 
Zeilen auf dem Schirm an. die Umlei¬ 
tung in eine Datei wäre ebenfalls mög¬ 
lich. (Die Optionen zur Steuerung der 
Filter sind der Tabelle zu entnehmen.) 
Die Filter lassen sich über sogenannte 
Pipes {'Röhren') untereinander und mit 
anderen Programmen verbinden. Er¬ 
reicht wird dies mit dem Pipe-Symbol 
'I' (ASCII 124). Ein kleines Beispiel 
hierzu: 

In einen Text soll eine Dateiliste cinge- 
fügt werden, die alle *.EXE-Datcicn 
eines Verzeichnisses enthält, und zwar 
in sortierter Form. Die Pipe-Kette 

DIR I FIND “ EXE“ I SORT > LISTE 

sicht zwar etwas komisch aus. erfüllt 
ihren Zweck Jedoch. Oder eine Über¬ 
sicht über alle *.COM-Dateien auf 
dem Datenträger (auch in Unterver¬ 
zeichnissen): 

CHKDSK /V I FIND “.COM“ I SORT I MORE 
schafft dies ohne Probleme. (Hier wur¬ 
de ein kleiner Trick angewandt: Durch 
die Option /V wird CHKDSK sehr 'ge¬ 
schwätzig' und zeigt alle Dateien, die 
cs gerade bearbeitet — und da.s sind zu¬ 
fällig alle auf der Scheibe vorhan¬ 
denen.) 

Beim Piping mit FIND muß übrigens 
etwas aufgepaßt werden: Die Ausgabe 
der Programme muß vorher analysiert 
werden, um gute Resultate zu bekom¬ 
men. Die obigen Beispiele zeigen, war¬ 
um: Lediglich “EXE“ und “COM“ als 
Kriterien einzugeben ist nicht genug, 
da diese Folgen auch in anderen Datei¬ 
namen Vorkommen können. Also muß 
noch ein zusätzliches Zeichen hinzu, 
da normale Joker hier nicht helfen. Al¬ 
lerdings haben DIR und CHKDSK ver¬ 


schiedene Anzeigen: DIR trennt Na¬ 
men und Typ durch ein Leerzeichen, 
CHKDSK dagegen durch einen Punkt, 
daher auch “.EXE“ und “.COM“. 
Auch muß berücksichtigt werden, daß 
FIND zwischen Groß- und Klein¬ 
schreibung unterscheidet. (Hier kann 
man notfalls 2 x FIND cinschalten.) 

Umleitungen: 

ASSIGN 

Mil ASSIGN können die Zugriffe eines 
Laufwerks auf ein anderes umgeleitet 
werden. Nach ASSIGN A=C werden 
alle Zugriffe auf A: nach C: umgelei¬ 
tet. Die Umleitung wird durch AS¬ 
SIGN ohne Parameter aufgehoben. 
Hinter der Laufwerkskennung darf 
kein Doppelpunkt gesetzt werden! 
Aufruf: 

ASSIGN [altl=neul] ... [altnsneux] 

4nmerkwit;eii- Ex wird empfohlen, ASSIGN durch SUBST 
IZMin Beispiel SUBSTA: C: ^ ) zu ersetzen. du der Befehl in 
sptliert'ii DOS-yerxifmen nicht mehr vorfuinden .lein wird. 
Die Gefahren und F.in.u'hränkuiif’eri hei iMufiwrkxumlci- 
tungen sind zu Iteachtcn. 

.TOIN 

Mit JOIN wird ein komplettes Lauf¬ 
werk zum Unterverzeichnis eines an¬ 
deren Laufwerks erklärt. So bewirkt 
die Anweisung JOIN D: C: \ TEST zu¬ 
nächst. daß auf Laufwerk C: ein Ver¬ 
zeichnis namens TEST angelegt wird. 
In diesem Verzeichnis sind nun alle 
Dateien und Verzeichnisse von D: zu¬ 
gänglich. was vorher D;\ BRIEFE 
war. ist nun C:\TEST\BRIEFE. 
Als Parameter werden der Name des 
umzu leitenden Laufwerks und das Ver¬ 
zeichnis. als das es angesprochen wer¬ 
den soll, übergeben. Durch die Angabe 
des umgclcitcten Laufwerks und der 
Option 7 d wird die Umleitung aufge¬ 
hoben. JOIN ohne Parameter zeigt eine 
Liste der Umleitungen. 

A ufruf: 

JOIN laufwerk pfadname 
JOIN laufwerk /D 

Annierkiinxen: Dm um^eleiteie tMufwerk ist ßir die Xeil 
der Umleiiimf! nicht mehr ansprechbar. Das Umleiiunas- 
Verzeichnis darf beim Aufruf der Umleitung keine Daten 
enihalien. Die Gefahren und Einschränkungen hei iMuf- 
werksundeitungen sind zu beachten. 

SUB.ST 

SUBST ist eine Weiterentwicklung von 
JOIN, mit der der Zugriff eines be¬ 
stimmten Laufwerks auf ein beliebiges 
Unterverzeichnis eines anderen Lauf¬ 
werks umgclcitet werden kann. Dabei 
kann es sich bei dem umgeleiteten 
Laufwerk sowohl um ein physikali¬ 
sches als auch ein logisches Laufwerk 
handeln. Als Parameter werden das 
umzuleitende Laufwerk und der Zicl- 
pfad übergeben. Die Umleitung wird 
durch Angabe des Laufwerks und der 
Option /D aufgehoben, ein Aufruf 


ohne Parameter zeigt eine Liste aller 
Umleitungen an. 

Aufruf: 

SUBST laufwerk umleitungspfad 
SUBST laufwerk /D 

Anmerkungen: Um mäglichsi viele Laufwerke simulieren zu 
kbnncn. muß in CONF/C. SYS ein hoher Werl ßir die maxi¬ 
male Anzidil der Laufwerke eingestellt werden, beispiels¬ 
weise LAS’IDRiyE=Z. Die Gefahren tiiui Ein.schränkun- 
geii Itei iMiifwerksiimleiiwigen .sind zu beachten. 

Filter: 

FIND 

Der Filter FIND dient zum Durchsu¬ 
chen der Ausgabe eines Programms 
oder des Inhalts einer Datei nach einer 
Zeichenkette, die in Anführungszei¬ 
chen als Parameter übergeben wird. 
Option /V bewirkt, daß alle Zeilen, die 
die Zeichenketle nicht enthalten, ange- 
zcigl werden. Über die Option /C wird 
lediglich die Anzahl der gefundenen 
Zeilen ausgegeben — auch in Verbin¬ 
dung mit /V. Option /N zeigt zusätzlich 
die Nummer der Zeile in der jeweiligen 
Datei. 

Aufruf: 

befahl I FIND [/V] I/C] [/N] "zelchenket- 
te“ (mit Programm) 

FIND [/V] [/C] [/N] "zeiehenkettc“ datei 
(mit Datei) 

Anmerkungen: Bei der Venvendung über eine Pipe wird 
eine Datei als Zwisehenspeichrr angelegt, der Daientrdger 
muß also n<K'h genügem! Platz aufweisen und darf nicht 
.schreihgesehiltzt sein. Dm gefilterte Pntgramm muß die 
Sumdardausgalte xon DOS henutzen. 

MORE 

Der Filter MORE dient zur Anzeige 
der Ausgabe eines Programms oder des 
Inhalts einer Datei über die Pipes 
und ’ <wobei nach jeder Biidschirm- 
scite auf eine Tastendruck gewartet 
wird. 

Aufruf: 

befehl I MORE (mit Programm) 

MORE < datei (mit Datei) 

Anmerkungen: Bei der ['enwiuliaig über eine Pipe wird 
eine Datei als Zwischenspeicher angelegt. der Datenirdger 
muß also lUK'li genügend Platz aufwrisen und darf nuitt 
.schreihge.sehätz.t sein. Dos gefilterte Pnigramm muß die 
Siaiularduiisgalte von DOS benutzen. 

SORT 

Der Filter SORT dient zum Sortieren 
der Ausgabe eines Programms oder des 
Inhalts einer Datei. Normalerweise 
wird nach dem ersten Zeichen einer 
Zeile sortiert, mit der Option / -f- x kann 
das x-te Zeichen der Spalte als Kriteri¬ 
um gewählt werden. Die Option /R be¬ 
wirkt eine Sortierung in fallender Rei¬ 
henfolge (Z-A. 9-0). 

A ufruf: 

befehl I SORT [/R] [/+x] (mit Programm) 
SORT [/R] [/+x] < datei {mit Datei) 
Anmerkungen: Bei der Verwendung tiber eine Pipe wird 
eine Dtitei als Zwixchetvipcieher ungelegt, der Daieiiiniger 
muß also noch genügend Platz uuf'elsen und darf nicht 
sclireibge.\<iuitzi .sein. Das gefilterte Programm muß die 
Siandardaiisgohe >wi DOShenuizen. 

(Michael Anlon/jf) 
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Schaltstation PC 

Device-Treiber unter DOS (2) 

Nachdem wir Im ersten Teil gesehen haben, wie ein Gerätetreiber aufgebaut 
ist und wie sein Kopf aussieht, wenden wir uns in diesem Teil den einzelnen 
Funktionen zu, die ein Treiber unterstützen muß. 


gäbe gesetzt. Jede Funktion, auch die 
Funktionen, die eigentlich überhaupt 
nicht vom Treiber unterstützt werden, 
muß einen Status zurückliefern (bei 
solchen Funktionen wird dann das Feh¬ 
lerbit zusammen mit dem Fehler ‘unbe¬ 
kannter Belehr gesetzt). Wurde die 
Funktion ausgeführl (auch w'cnn nur 
ein Fehler gemeldet wird), muß das 
Fertig-Bit gesetzt werden, da DOS 
sonst annimnit. daß noch gearbeitet wird. 
Das Statusleid hat folgenden Aulbau; 

Bit Aufgabe 

0-7 Ist Bit 15 gesetzt, wird ein 

Fehler signalisiert. In den 

Bits 0-7 wird dann ein Fehler¬ 
code übergeben: 

0 Medium schreibgeschützt 

1 unbekanntes Gerät 

2 Drive not ready 

2 unbekannter Befehl 

4 Lese Fehler (CRC) 

5 Datenblock hat falsche Länge 

6 Such Fehler (Track nicht ge¬ 
funden) 

7 unbekanntes Medium 

8 Sektor nicht gefunden 

9 Drucker hat kein Papier 

10 Schreibfehler 

11 Lesefehler 

12 Allgemeiner Fehler 

13 Unerlaubter Mediumweehsel 

8 == 1 Fertig mit Funktion 

9 == 1 Gerät ist beschäftigt 

10-14 == 0 werden nicht benutzt 

15 == 0 Alles in Ordnung 

-- 1 Fehler auf getreten 


Um noch einmal zu rekapitulieren: Der 
Kopf eines Gerätetreibers ist folgen¬ 
dermaßen aufgebaut (in Assembler- 
Source): 

ilnkdd-l ^Verbindung zum jnächsten 
Treiber ; (DOS) 
att dw 1000000000100010b 

jAttribut des Treibers 
strat dw OFFSET Strategierout 

jOffset der Strategierou¬ 
tine 

inter dw OFFSflT Interruptrout 

jOffset der Interrupt-Rou¬ 
tine 

name db “IRCFNDWA“ 

' jName des Treibens jinaxi- 

mal 8 Buchstaben. Nur bei 
Zeichentre ibem 

Zur Erinnerung: Die Slrategieroutine 
hat nur den Auftrag, den von DOS 
übergebenen Zeiger auf einem Daten¬ 
block zu sichern. Die Interrupt-Routi¬ 
ne, die später von DOS aufgerufen 
wird, wertet dann die Daten aus und er¬ 
ledigt die eigentliche Arbeit. 

Die Frage kommt auf, woher die Inter¬ 
rupt-Routine denn eigentlich weiß, was 
sie machen soll? Dafür steht im Daten¬ 
block stets an der gleichen Stelle eine 
Funktionsnummer, die angibt, welche 


Funktion gerade verlangt wird. Lassen 
Sic uns die Geheimnisse dieser Daten¬ 
blöcke entwirren und einen generi¬ 
schen Datenblock beschreiben. 

Der Datenbiock im Überblick 

Die Blöcke, deren Adressen der Strate¬ 
gieroutine zur sicheren Verwahrung 
übergeben werden, sind immer minde¬ 
stens 13 Byte lang (je nach Funktions¬ 
nummer kann aber noch einiges an Da¬ 
ten folgen). Hier nun der Aufbau: 


Offset 

Länge 

Inhalt 

0 

1 Byte 

lünge des Datenbl. 

1 

Ißyte 

Nr. des angesprochen 
Geräts 

2 

IByte 

Befehlscode (Funkt.) 

3 

1 Wort 

Status 

5 

8 Byte 

Reserviert (DOS) 

13 

1 Byte 

Media-Descriptor 

14 

1 Wort 

Offset Puffer 

16 

1 Wort 

Segment Puffer 

18 

1 Wort 

Anzahl Sektoren 

20 

1 Wort 

Start Sektor 


Offsei hc’iehl sich iiuf die Adresse des Puienhhcks. 
EiniKr Felder werden von DOS. andere vom Treiber 
hnun-t. •iifhe einzelne Funktionen. 


Das Slatusfeld (Offset 3) wird vom 
Treiber nach Beendigung seiner Auf- 


Funktionen eines Gerätetreibers 

Bei der DOS-Version 2 gab cs 13 
Funktionen (0-13), die ein Treiber un¬ 
terstützen mußte. Ab Version 3 sind 
noch vier Funktionen hinzugekom¬ 
men. die unterstützt werden können, 
aber nicht müssen (man sollte trotz¬ 
dem, wenn eine solche Funktion ohne 
Unterstützung im Treiber aufgerufen 
wird, wie oben beschrieben Vorgehen). 
Einige dieser Funktionen beziehen sich 
auf beide Arten (Block- und Zeichen¬ 
treiber) von Gerätetreibern, andere nur 
auf die eine oder andere Art. Doch 
auch die nicht unterstützten Funktionen 
müssen wenigstens das “Fcrtig-Bit“ 
setzen. 

Ihre Daten erhält die Interrupt-Routine 
über den Datenbiock, dessen Adresse 
die Strategieroutine erhält. Es folgt nun 
der Aufbau der Datenblöcke mit Ein- 
und Ausgabewerten für die einzelnen 
Funktionen eines Gerätetreibers. 


Abkürzungen: 

BLT — Blocktreibcr 
ZET — Zeichentreiber 
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Zeiger sind immer, sofern nicht anders 
angegeben, 4-Byte-Werte in der Form 
Offset:Segment (Far Pointer). 

Funktion 0: Initialisierung 


Eingungsparameter 
Off. Länge 

2 I Byte Funktionsnr. (0) 

18 Zeiger Adresse des ersten Zei¬ 
chens nach DEVICE = 
22 I Byte Gerätebezeichnung des 
ersten durch den Trei¬ 
ber unterstützten Gerä¬ 
tes (0 = A. 1=B ...) 
Rüvkgahewerte 
Off. Länge 

3 I Won Status 

13 I Byte Anzahl der unterstütz¬ 

ten Geräte (nur BLT) 

14 Zeiger Adresse des ersten frei¬ 

en Speicherplatzes hin¬ 
ter dem Treiber 

18 Zeiger Adresse eines Feldes 
von Zeigern, das die 
Adressen der BPBs ent¬ 
hält (nur BLT) 


DOS ruft diese Funktion nur einmal 
auf: direkt nach dem Laden des Trei¬ 
bers, während des Bootvorgangs. Nun 
kann sich der Treiber bequem im Sy¬ 
stem einnisten (Flardware initialisie¬ 
ren. Interrupts verbiegen. Daten ord¬ 
nen u.sw.). Da DOS sich noch nicht 
komplett im Rechner eingerichtet hat, 
können nur die Funktionen 01 FI bis 
012FI sowie 030H von DOS benutzt 
werden. Nicht viel zwar, es reicht aber 
aus, um die DOS-Version zu erfahren 
und Meldungen auszugeben. (Neben¬ 
bei bemerkt: Auch wenn der Treiber 
ein neuer CON-Treiber ist, DOS be¬ 
nutzt für Meldungen so lange den alten 
CON-Treiber. bis der neue komplett 
ins System eingebunden ist.) 

Der Treiber erhält zwei zusätzliche In¬ 
formationen von DOS. 

Erstens: (ab Offset 18) die Adresse des 
ersten Zeichens des Textes, der nach 
dem Befehl “ DEVICE = “ folgt (also 
etwa einen Zeiger auf den Buchstaben 
Avon ANSI.SYS). 

Zweitens: (ab DOS 3.0 und nur bei 
Blocktrcibern) die Buchstabenbczcich- 
nung des ersten logischen Gerätes des 
Treibers (wobei 0= = A, l = =B ...). 
Nach der Installation des Treibers, 
muß dieser auch vier Parameter zu¬ 
rückliefern. 

Der Status, den Jede Funktion zurück¬ 
bringen muß. findet sich bei Offset 3. 
Bei Blocktrcibern wird im Byte-Wert 
bei Offset 13 die Anzahl der unterstütz¬ 


ten Geräte zurückgegeben (entfällt bei 
Zeichentreibern). 

Ab Offset 14 wird ein Zeiger (Off- 
sct:Segment) von DOS erwartet, der 
auf den ersten freien Speicherplatz 
nach dem Treiber zeigt. 

Als letztes möchte DOS noch von 
Blocktreibern einen Zeiger (ab Offset 
18, Offset:Segment) haben, der auf ein 
Feld von Adressen mit den BPBs 
(BIOS-Parameter-Block) der logischen 
Geräte des Treibers zeigt (Reihenfolge 
ist: erste Adresse = = erster BPB 
usw.) 

Bei einem BPB handelt es sich um ei¬ 
nen Datenblock, der Informationen 
über ein logisches Gerät enthält. BPBs 
haben folgenden Aufbau: 


Off. 

I,Snge 

Inhalt 

0 

1 Wort 

Bytes pro Sektor 

2 

1 Byte 

Sektoren pro Cluster 

3 

1 Wort 

reservierte Sektoren 
(Bootsektor, Partitions¬ 
sektor usw.) 

5 

1 Byte 

Anzahl der FATs (File-Al- 
locatlon-Table) 

6 

1 Wort 

Maximale Anzahl der Ein¬ 
träge iffl Hauptver¬ 
zeichnis 

8 

1 Wort 

Gesaratanzahl der Sek¬ 
toren 

10 

IByte 

Media-Descriptor 

11 

1 Wort 

Anzahl der Sektoren pro 

FAT 


Ein Media-Descriplor ist eine Kennung 
für bestimmte Laufwerke. Hier die Ta¬ 
belle: 


! Descr. Laufwerk 
0F8H Festplatte 
OFgH Disk, 5 1/4 Zoll, 2 Seiten, 15 
Sektoren pro Track, 80 Tracks 
OFCH Disk, 5 1/4 Zoll, 1 Seite, 9 
Sektoren pro Track, 40 Tracks 
OFDH Disk, 5 1/4 Zoll, 2 Seiten, 9 
Sektoren pro Track, 40 Tracks 
OFEH Disk, 5 1/4Z011, ISeite, 8 
Sektoren pro Track, 40 Tracks 
OFFH Disk, 5 1/4 Zoll, 2 Selten, 8 
Sektoren pro Track, 40 Tracks 
OFOli Disk, J 1/2 Zoll, 2 Seiten, 18 
Sektoren pro Track, 80 Tracks 
0I''9H Disk, 5 1/4 oder 3 1/2 Zoll, 2 
Seiten, 9 Sektoren pro Track, 
80 Tracks 


Funktion 1: Medium-Test 


Eingangsparameter 

Off. Länge 


1 Byte 

Nummer de.s ange¬ 
sprochenen Geräts 

2 Byte 

Funktionsnummer (l) 

13 Byte 

Media-Descriptor 

Rückgabewerte 

Off. Länge 

3 Byte 

Status 


14 Byte 

Medium gewechselt? 
FFH = Ja 

OOH = Vielleicht 

OIH = Nein 

15 Zeiger 

Adresse eines Puf¬ 
fers, der den Volu¬ 
men-Namen des vor¬ 
hergehenden Medi¬ 
ums enlhäll. ASCII- 
String mit 0 Byte als 
Endezcichen (nur 
wenn Mediumwech- 


sei festgcstellt wer¬ 
den können und ein 


solcher stattgefunden 
hat) 


Diese Funktion muß nur bei Blocktrei¬ 
bern vorhanden sein. Bei Zeichentrei¬ 
bern wird nur das Statusfeld auf “fer¬ 
tig“ und “Unbekannter Befehl“ ge¬ 
setzt. Einen richtigen Sinn hat diese 
Funktion erst bei Diskettenlaufwerken, 
die einen Diskettenwechscl melden 
können, oder bei Festplatten, die nicht 
gewechselt werden (schon mal eine HD 
bei laufendem Rechner ausgebaut?). 
Aufgerufen wird diese Funktion nicht 
vor Schreib- und Lesevorgängen, son¬ 
dern wenn Informationen über das Me¬ 
dium (Directory etc.) erfaßt werden 
sollen. Da besonders bei Diskettenlauf¬ 
werken die Frage, ob die Diskette ge¬ 
wechselt wurde oder nicht, recht 
schwierig zu beantworten ist, erlaubt 
DOS als Antwort nicht nur 'Ja' oder 
'Nein', sondern auch 'Vielleicht'. Von 
die.ser Antwort hängt nun das weitere 
Verhallen von DOS ah. Ist die Antwort 
’Nein’ (nicht gewechselt), greift DOS 
sofort auf das Medium zu. Wird “Ja' 
(gewechselt) geantwortet, löscht DOS 
seine internen Puffer, die noch Daten 
de.s Mediums erhalten (diese gehen da¬ 
durch verloren), und arbeitet dann 
weiter. 

Bei der Antwort ■Vielleicht’ hängt das 
Verhalten von DOS vom Zustand der 
Puffer ab. Sind diese leer, geht DOS 
davon aus. daß das Medium gewechselt 
wurde. Sind die Puffer hingegen mit 
Daten für das Medium gefüllt, geht 
DOS davon au.s, daß das Medium nicht 
gewechselt wurde, und schreibt die 
Daten auf das Medium zurück (was, 
wenn das Medium doch gewechselt 
wurde, bedeutet, daß die FAT und das 
Directory wohl hin sein dürften). 

Wie man sieht, hängt von der Antwort 
einiges ab. Wie läßt sich nun aber eini¬ 
germaßen sicher antworten? Bei Gerä¬ 
ten wie Festplatten und RAM-Disks ist 
die Antwort einfach, da diese sehr sel¬ 
ten während des Betriebs gewechselt 
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werden. Bei Diskettenlaufwerken ist 
die richtige Antwort wesentlich schwe¬ 
rer zu ermitteln. Hat man ein Lauf¬ 
werk, das einen MediumwcchscI selb¬ 
ständig erkennt, ist man fein raus. Bei 
1.2-MByle- und 1,44-MBylc-Laufwer- 
ken geschieht dies über einen Sensor 
am Öffnungs- beziehungsweise 
Schließmechanismus. Weniger üblich 
ist allerdings, daß das BIOS diesen 
Sensor auch auswertet. Doch auch in 
diesem Fall .stellt sich immer noch die 
Frage, ob die gewechselten Disketten 
identisch sind oder nicht. Verfügt die 
Diskette über einen Namen, könnte 
man diesen zum Vergleich heranzie¬ 
hen. was aber auch ziemlich unsicher 
ist, da die Namen von Disketten selten 
einmalig sind. Bei DOS 4.01 gibt cs die 
Möglichkeit, die Seriennummer der 
Diskette zu Rate zu ziehen. Das For¬ 
mat-Programm vergibt diese nach dem 
Formatierprozeß — mit Diskeopy er¬ 
zeugte Kopien erhalten eine neue Ken¬ 
nung. 

Diese Methode ist zwar nicht optimal, 
aber für DOS 4.01 eine recht gute Lö¬ 
sung. 

Die normalerweise angewandte Me¬ 
thode (auch von DOS) nimmt die Zeit, 
die zwischen zwei Zugriffen vergeht, 
zur Hilfe. Sind weniger als zwei Se¬ 
kunden vergangen, gilt die Diskette als 
nicht gewechselt. Dieses Verfahren ist 
eigentlich recht sicher, da Di.sk-Zugrif- 
fc selten allein kommen und auch der 
schnellste User nicht innerhalb von 
zwei Sekunden eine Diskette wechseln 
kann (oder können sollte, um der Auf¬ 
stellung von Rekorden in dieser Diszi¬ 
plin vorzubeugen). 

Was kommt nun als Parameter an? Der 
erste Parameter ist die Nummer des an¬ 
gesprochenen Gerätes (Offset 1, nur 
von Belang, wenn der Treiber mehrere 
logische Geräte unterstützt). Als näch¬ 
stes ist die Funklionsnummer an der 
Reihe 0. ab Offset 2). Der dritte Para¬ 
meter ist ein Media-Descriptor des an- 
gcsprochenen Gerätes (Offset 13). 

Als Rückgabewerte erwartet DOS wie 
immer den Status (Offset 3) und eine 
Antwort auf die Frage, ob das Medium 
gewechselt wurde (Offset 14). Folgen¬ 
de Weite stehen hier zur Verfügung: 

-1 Medium gewechselt. 

0 Medium vielleicht gewechselt. 

1 Medium nicht gewechselt. 

Funktion 2: Erstellung eines BPB 
(BIOS-Parameter-Block) 


Eingangsparameter 
Off. Länge 

I Byte Nummer des angc- 


sprochenen Gerätes 

2 Byte Funktionsnummer (2) 

3 Byte Media-Descriptor 

14 Zeiger Zeiger auf Puffer, der 

eine Kopie der FAT 
(File Allocation Table) 
enthält 

Rückgahewerte 
Off. Länge 

3 Byte Stalusfeld 

18 Zeiger Adresse des BPB des 
Gerätes 


Auch diese Funktion muß nur bei 
Blocktreibcrn vorhanden sein. Bei Zei¬ 
chentreibern wird wie gehabt das Sta- 
lusfcld auf “fertig“ und “Unbekannter 
Befehl“ gesetzt. Diese Funktion wird 
von DOS immer dann aufgerufen, 
wenn das Medium in einem Gerät ge¬ 
wechselt wurde. Die Funktion muß 
dann einen BIOS-Parameier-Bloek für 
das Medium aufbaucn und die Adresse 
des BPB an DOS zurückliefem (Auf¬ 
bau und Funktion eines BPB, siehe 
Funktion 0). 

Als Parameter wird die Nummer des 
angesprochenen Gerätes (nur von Be¬ 
lang. falls der Blocktreiber mehrere lo¬ 
gische Geräte unterstützt), der Media- 
Descriptor und ein Zeiger auf einen 
Puffer, der den ersten Sektor der FAT 
enthält (nur bei Blocktreibcrn, die 
Standard-IBM-Format bedienen, Bit 
13 = = 0 im Treiberattribut), von DOS 
geliefert. Von DOS wird der Status des 
Treibers und die Adresse des BPB er¬ 
wartet. 

Zu beachten ist noch, daß die Funktion 
auch den Volumen-Namen des Medi¬ 
ums lesen und speichern sollte (erst ab 
DOS-Version 3), falls der Treiber ei¬ 
nen Medium-Wechsel erkennen kann, 
da dieser in Funktion 1 als Rückgabe¬ 
wert verlangt wird. 


Funktion 3: Direktes Lesen 

Eingang.sparameter 

Off. Länge 

1 

Byte 

Nummer des angespro¬ 
chenen Gerätes (nur 
BLT) 

2 

Byte 

Funklionsnummer (3) 

13 

Byte 

Media-Descriptor (nur 
BLT) 

14 

Zeiger 

Adresse des Puffers, in 
den die gelesenen Da¬ 
ten übertragen werden 
sollen 

18 

Wort 

Anzahl der zu lc.scnden 
Sektoren (BLT). An¬ 
zahl der zu lesenden 
Zeichen (ZET) 


Jesus Christus: Gebt Ihr ihnen 
zu essen! (Mk. 6.37a} 



Krokodils-Tränen 


helfen nicht... 


> Also. ist das nicht schrecklich. 

was man ständig in den Medien 

so voraesetzt bekommt? Miß¬ 

ernten. Hungersnot. Büraerkne - 
a e... Es ist zum Heulen! Ich has¬ 

se diese Katastroohenberichteh 
Hatten es da nicht unsere Vorfah¬ 
ren leichter.? Sie erlebten »nur« 
die Not in ihrer unmittelbaren 
Umgebung. F)s gab keine Me¬ 
dien, die da.s Elend der Menschen 
in fernen Ländern nahebrachten. 
Doch die Welt ist kleiner gewor¬ 
den. ln wenigen Stunden errei¬ 
chen wir unser Urlaubsquartier 
am Indischen Ozean. Tropische 
Früchte bereichern unsere Spei¬ 
sekarte. Flüchtlinge aus Sri Lan¬ 
ka. Äthiopien, dem Libanon su¬ 
chen bei uns Schutz vor Bürger¬ 
krieg und Verfolgung. Die Pro¬ 
bleme der anderen werden sehr 
schnell zu unseren eigenen... ^ 
helfen weder Krokodilstränen 

noch Scheuklappen. 

Das Gebot chri.stlicher Näch¬ 
stenliebe erklärt jeden Men¬ 
schen. der in Not ist und Hilfe 
braucht, zu unserem Nächsten. 
Viele bei uns wehren sich gegen 
dieseVerantwortung.Sie verwei¬ 
sen auf Ursachen, die bei den 
armen Menschen und ihren Re¬ 
gierungen liegen, auf Korrup¬ 
tion, zu hohe Verwaltungs¬ 
kosten, zu viele Kinder, hohe 
Rüstungsausgaben, neue Armut 
bei uns.und,und.und... und ver¬ 
g ießen vielleicht bittere Kroko¬ 
dilstränen. 

Wenn Sie wirklich helfen wol¬ 
len... BROT FÜR DIE WELT 
sorgt dafür, daß Ihre Spende 
dorthin kommt, wo sie gebraucht 
wird. 

Brot 

für die Welt 

Postgiro Köln 500500-500 
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20 Wort erster /,u lesender Sek¬ 

tor (nur BLT) 
Riiekgahewerte 
Off. Länge 
3 Wort Status 

18 Wort Anzahl der gelesenen 

Sektoren (BLT). An¬ 
zahl der gelesenen Zei- 
ehen (ZET) 


Diese Funktion tlndct bei Zeichen- und 
Blocktreibcm Verwendung. Sie dient 
zur direkten Kommunikation zwischen 
Anwenderprogramm und Treiber. Sie 
läßt sich allerdings nur dann über 
Funktion 44H des Interrupts 21H auf- 
rufen, wenn der Treiber lOCTL-lahig 
(Input/Output Control) ist. Dies wird 
DOS über das lOCTL-Bit im Treiber- 
Attribut mitgeteilt. (Auf die einzelnen 
lOCTL-Funktionen kommen wir noch 
im Laufe dieser Serie zu sprechen.) 

Je nach Treiber (ZET oder BLT) wer¬ 
den verschieden Parameter übergeben. 
Zeichentreiber erhalten nur die Funk¬ 
tionsnummer. die Anzahl der zu lesen¬ 
den Zeichen und die Adres.se des Puf¬ 
fers mitgeteilt, in den die Zeichen über¬ 
tragen werden sollen. 

Blocktrcibcr enthalten folgende Para¬ 
meter: die Gerätenummer (nur von Be¬ 
lang, falls der Treiber mehrere logi¬ 
sche Geräte unterstützt), die Funk¬ 
tionsnummer. den Media-Dcscriptor 
des angesprochenen Gerätes (zu Me- 
dia-Descriptoren siehe Funktion 0), die 
Adresse eines Puffers, in den die gele¬ 
senen Daten übertragen werden sollen, 
die Anzahl der zu lesenden Sektoren 
sowie den ersten zu lesenden Sektor. 
Zurück liefert diese Funktion ihren 
Status sowie die Anzahl der gelesenen 
Zeichen beziehungsweise Sektoren. 

Funktion 4; Lesen 


Rückgahewerte 

Off. Länge 


3 Wort 

Status 

18 Wort 

Anzahl der gelesenen 
Sektoren (BLT), An¬ 
zahl der gelesenen Zei¬ 
chen (ZET) 


Diese Funktion ist identisch mit Funk¬ 
tion 3. Der Unterschied besieht darin, 
daß sie von übergeordneten DOS- 
Funktionen zum Lesen verwendet 
wird, nicht von einem Anwenderpro¬ 
gramm mittels lOCTL-Funktionen. 

Funktion 5: Zeichen lesen 


Eingangsparameter \ 

Off. Länge 

2 Byte Funktionsnummer (5) 
Rückgahewerte 

Off. Länge 

3 Wort Status 

13 Byte gelesenes Zeichen 

Diese Funktion muß nur bei Zeichen¬ 
treibern vorhanden sein. Bei Blocktrei- 
bern wird nur das Statusfeld auf “fer¬ 
tig“ und “Unbekannter Befehl“ ge¬ 
setzt. Diese Funktion wird von DOS 
benutzt, um feslzuslcllcn, ob Zeichen 
zur Verarbeitung zur Verfügung ste¬ 
hen. Wenn dies der Fall ist. muß das 
“BESCHÄFTIGT-Bit“ im Slatus-Woi1 
aul' 0 gesetzt werden. Das Zeichen 
wird DOS übergeben und darf nicht 
verlorengehen, so daß der nächste Auf¬ 
ruf einer Lese-Funktion genau dieses 
Zeichen liefert. 

Steht kein Zeichen zur Verfügung, 
muß das “BESCHÄFTIGT-Bit“ auf I 
gesetzt w'crdcn. Verwendung findet 
diese Funktion zum Beispiel bei der 
Tastaturbehandlung unter DOS. 


Eingangsparameter 


Off 

. Länge 


1 

Byte 

Nummer des angespro¬ 
chenen Gerätes (nur 
BLT) 

2 

Byte 

Funktionsnummer (4) 

13 

Byte 

Media-Descriptor (nur 
BLT) 

14 

Zeiger 

Adresse des Puffers, in 


den die gelesenen Da¬ 
ten übertragen werden 
sollen 


18 Won Anzahl der zu lesenden 
Sektoren (BLT), An¬ 
zahl der zu lesenden 
Zeichen (ZET) 

20 Wort erster zu lesender Sek¬ 
tor (nur BLT) 


Funktion 6: Eingabe Status 

Eingangsparameter 
Off. Länge 

2 Byte Funktionsnummer (6) 
Rückgahewerte 

Off. Länge 

3 Wort Status 


Diese Funktion muß nur bei Zeichen¬ 
treibern vorhanden sein. Bei Blocktrei- 
bern wird nur das Statusfeld auf “fer¬ 
tig“ und “Unbekannter Befehl“ ge¬ 
setzt. DOS benutzt diese Funktion, um 
fcstzustcllcn, ob Zeichen im eventuell 
vorhandenen Puffer sind oder Puffer 
des Zeichentreibers darauf warten, ab¬ 
geholt zu werden. 


Die Antwort erwartet DOS im Status- 
Wort. Das “BESCHÄFTTGT-Bit“ im 
Status-Wort ist auf 0 zu setzen, wenn 
Zeichen auf ihre Bearbeitung warten, 
oder auf eins, wenn keine Zeichen vor¬ 
handen sind. 

Funktion 7: Lösche Eingabe-Puffer 

Eingangsparameter 
Off. Länge 

2 Byte Funktionsnummer (7) 
Rückgahewerte 

Off. Länge 

3 Won Status 


Diese Funktion muß nur bei Zeichen¬ 
treibern vorhanden sein. Bei Blocktrei¬ 
bern wird nur das Statusfeld auf “fer¬ 
tig“ und “Unbekannter Befehl“ ge¬ 
setzt. Diese Funktion fordert den Zei¬ 
chentreiber dazu auf, seinen Puffer zu 
löschen. Das bedeutet, daß alle Zei¬ 
chen, die eventuell gelesen und noch 
nicht an DOS zur Verarbeitung weiter¬ 
gereicht wurden, verloren sind. Als 
Antwort erwartet DOS von dieser 
Funktion nur das Status-Wort. 


Funktion 8: Schreiben 

Eingangsparameter 
Off. Länge 

1 Byte Gcrälcnummer (nur 

BLT) 

2 Byte Funktionsnummer (8) 

13 Byte Media-Descriptor des 

angesprochenen Gerä¬ 
tes (nur BLT) 

14 Zeiger Adresse des Puffer, der 

die Zeichen enthält, die 
geschrieben werden 
sollen 

18 Wort Anzahl der zu schrei¬ 

benden Sektoren 
(BLT), Anzahl der zu 
schreibenden Zeichen 
(ZET) 

20 Wort erster zu schreibender 
Sektor (BLT) 
Rückgabewerte 
Off. Länge 

3 Wort Status 

18 Wort Anzahl der geschriebe¬ 
nen Sektoren (BLT). 
Anzahl der geschriebe¬ 
nen Zeichen (ZET) 


Diese Funktion muß nun wieder von 
beiden Arten von Treibern unterstützt 
werden. Sic dient zur Übertragung von 
Zeichen beziehungsweise Sektoren auf 
die von dem Treiber unterstützten Ge¬ 
räte. Tritt während der Übertragung 
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ein Fehler auf, so muß dieser im Stalus- 
Worl angegeben werden. 

Je nach Art des Treibers werden ver¬ 
schiedene Eingangsparameter überge¬ 
ben. Beide erhalten die Adresse eines 
Puffers, in dem sich die Daten befin- 
I den, die geschrieben werden sollen. 
Ein Zeichenlreiber erhält dazu noch die 
I Information, wie viele Zeichen ge- 
I schrieben werden sollen. Blocktreiber 
' erhalten, außer der Adresse des Pul- 
fers. noch folgende Daten: die Num¬ 
mer des Gerätes, auf das geschrieben 
werden soll (nur wichtig falls der Trei¬ 
ber mehrere logische Geräte unter¬ 
stützt), den Media-Descriptor des an- 
gcsprochencn Gerätes, die Anzahl der 
zu schreibenden Sektoren sowie die 
Nummer des ersten zu schreibenden 
Sektors. 

Als Antwort erwartet DOS, wie im¬ 
mer, das Status-Wort sowie die Anzahl 
der geschriebenen Zeichen bezie¬ 
hungsweise Sektoren. Ist während der 
Übertragung zum Gerät ein Fehler auf- 
getreten, so muß DOS dieses durch 
Setzen des Bits 15 im Status-Wort mit¬ 
geteilt werden. In den Bits 0 bis 7 hat 
sich die Nummer des aufgclretenen 
Fehlers zu befinden. 


Funktion 9: Schreiben und 
Verifizieren 

Eingangsparameter 

Off. Länge 

1 Byte 

Gerätenummer (nur 

BLT) 

2 Byte 

Funktionsnummer (9) 

13 Byte 

Media-Descriptor des 
angesprochenen Gerä¬ 
tes (nur BLT) 

14 Zeiger 

Adresse des Puffers, 
der die Zeichen ent¬ 
hält, die geschrieben 
werden sollen 

18 Wort 

Anzahl der zu schrei¬ 
benden Sektoren 
(BLT), Anzahl der zu 
schreibenden Zeichen 
(ZET) 

20 Wort 

erster zu schreibender 
Sektor (BLT) 

Rückgahewerte 

Off. Länge 

3 Wort 

Status 

18 Wort 

Anzahl der geschriebe- 


nen Sektoren (BLT). 
Anzahl der geschriebe¬ 
nen Zeichen (ZET) 


Diese Funktion ist fast identisch mit 
Funktion 8. Der Unterschied besteht 
darin, daß DOS den Treiber auffordcrl, 
mit Hilfe geeigneter Mittel festzustel¬ 
len. ob die Daten auf dem Medium 
auch in richtiger Fomi angekommen 
sind. 

Dies läßt sich bei Disketten- und Fest- 
plattenlaufwcrken mit Hilfe des BIOS 
erledigen, das hierfür geeignete Funk¬ 
tionen bereilstellt. Bei einigen Trei¬ 
bern, besonders bei einigen Zeichen¬ 
treibern. erübrigt sich das Verifizie¬ 
ren. Bei den Geräten, die sie bedienen, 
können entweder keine Übertragungs- 
fehlcr (Bildschirm) auftreten. oder cs 
gibt keine Möglichkeit fesizustellen. 
ob ein Fehler aufgelreten ist (Drucker). 
Die Rückgabewcrle sind wie die Ein¬ 
gangsparameter identisch mit denen 
der Funktion 8. 

In der nächsten Folge geht es weiter 
mit den restlichen Funktionen, und ein 
wenig über lOCTL-Zugriffe gibfs 
dann auch zu lesen. 

(Robert Haas/jf) 


Anzeigen¬ 
schluß für 
die Ausgabe 
10 / 11’90 
von PC In¬ 
ternational 
ist der 
10 . 08.90 

Erschei¬ 
nungstermin 
ist der 
26 . 09.90 


!!! Korrektur !!! 


Im Listing zum Programm “Dreh-Driss“ hat uns 
der Fehlerleulel in Form von ‘‘bösen Steuerzei¬ 
chen“ einen üblen Scherz gespielt. Folgende 
Zeilen sollten Sie besser in nachstehender Form 
eingeben, was Ihnen einen problemlosen Ablauf 
des Programms dann garantiert: 

(Punkte stehen für Leerzeichen) 


930 data “.Type..P..to.‘‘ 

940 ' 

1030 D.4TA “Type. .L. .to. . 

1060 DATA "ENTER.to.Play 

1240 DATA " .I. 

1260 DATA“. 

1280 DATA “ .I. 

1320 DATA “ . U . 

1340 DATA .A. . .1. . .S. . 

1360 DATA“ . Z . 

1420 DATA "[CTRL]-Q quit. . .£. .revive“ [3200] 



AMSTRAD - Computer 
Software + Zubehör 


AMSTRAD-Computer auf Anfrage 
JOYCE-Zubehör: 

Farbband 8256/8512 (Nylon) 12,90 


dto. 5 Slück 59,90 

3‘'-Markendiske«en 10 St. 59,90 
Farbband 9512 (Nylon) 18.95 
Typenräder 9512 + SD15 25,00 
DiskeUenbox 1. 60 Disk- 15,50 
Disketlenbox f. 100 Disk. 18,95 
Drucksrverlängerung 1.5 m 3950 
Centronics-Schnittstelle 179,00 
Staubschutzhaube Tastatur 16,95 
Staubschutzhaube Drucker 19,75 
Staubschutzhaube Monitor 32,85 
Staubschutzhauben 3er Set €4,50 
Transferprogramm 55,00 

CP/M-DOS (auch für CRC) 

PC-Zubehör: 

Abdeckhaube Tastatur 
1512/1640 16,95 

Abdeckhaube Monitor 
1512/1640 39,50 

Laufwerk 31/2" int. 1512/1640 220,00 
Lautwerk 31/2" ext. 1512/1640 398,00 
Lautwerk 5 1/4" ext. 1512/1640 398,00 
51/4"-Reinigungsdisketle 6,95 
31/2‘-Reinigungsdiskelte 9.95 
Monitorverlängerung 1512 59,75 

Tastaturverlängerung 
1512/1640 12,00 

Disketlenbox f. 100 5 1/4"-Disk, 16,95 
Disketlenbox f. 50 5 1/4“-Disk. 15,50 


Weitere Preise auf Anfrage! 
Preisliste gegen Rückporto. 

Lieferung per Nachnahme oder Voraus¬ 
kasse (Versandkostenpauschale 4,50 OM 
bei Vorauskasse, 650 DM hei Nachnahme) 

Kosmalla & Partner 

Datenverarbeitung GmbH 
Maudacher Straße 215 
€700 Ludwigshafen am Rhein 
Tel.: 0621-559558 
Fax: 0621-5595 03 
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Datura 

Dateiverwaltung für jedermann 

Wenn Sie als Besitzer eines Computers Ihre vergleichsweise kleinen Dateu- 
mengen vom Papier in den Speicher bringen wollen, stellt sich das Problem, 
welche der vielen Dateiverwaltungen denn nun angeschafft werden soll. Die 
einen strotzen nur so vor Funktionsumfang, die anderen sind bereits auf 
eine Thematik abgestinimt, und wenn sich diese Thematik nicht mit Ihrem 
Problem schneidet, ja dann... 


Was dem bereits berühmten “Otto 
Normalverbraucher“ bislang stets ge¬ 
fehlt hat. warein Programm, das belie¬ 
bige Datenfelder leicht zu Datensätzen 
und damit zu Datenbanken verknüpfen 
konnte. Es gibt ihn eben doch noch, 
den “User“, der nicht erst ein zwei 
Wochen dauerndes Einsteigerseminar 
für den Gebrauch eines Computerpro¬ 
gramms belegen möchte. Daß diese 
klaffende Marktlückc nicht schon lan¬ 
ge geschlossen wurde, verwundert 
nicht wenig. Datura von Tobit-Soft- 
ware vermag in diesem Falle nun Ab¬ 
hilfe zu schaffen, handelt cs sich doch 
tatsächlich um eine Dateiverwaltung, 
die in weniger als drei Minuten eine 
durchsichtige Datei mit lesbarer Maske 
erstellen läßt. 

Ein Herz für “User“ 

Daß bei Datura in erster Linie an den 
Benutzer des Programms gedacht wur¬ 
de, zeigt sich bereits in der 
Insiallalionsroulinc. Das 
Programm ermittelt die freie 
Speicherkapazität der zu be¬ 
nutzenden Datenträger und 
macht daraufhin Vorschlä¬ 
ge, auf welchem Laufwerk 
Sie Datura installieren soll¬ 
ten. Die Installation geht 
problemlos vonstatten. Nach 
Programmstart gelangen Sie 
in das Hauptmenü. Wenige 
Punkte werden angeboten. 
allerdings reichen diese zur 
Verwaltung der Daten voll¬ 
kommen aus. 

Den Hauptpunkt stellt die 
Bearbeitung von Daten dar. 

Nach Anwahl stellt das Pro¬ 
gramm Ihnen die Liste der 
bereits angelegten Dateien zur Aus¬ 
wahl zur Verfügung. Bei Ncustart wer¬ 
den Sie lediglich auf einige Demonstra- 
lionsdatenbanken .stoßen. Sie sollten 
diese der Reihe nach ausprobieren, 
denn sie zeigen, wie man mit dem Pro¬ 
gramm umgehen sollte. Die meisten 


der Demodateien bestehen aus simplen 
Datenmasken, die zeigen, wie be¬ 
stimmte Probleme mittels Datenbank 
einfachst gelöst werden können. Einige 
enthalten aber auch große Datenmen¬ 
gen (Vidcü/Viren) — eine nähere Be¬ 
schäftigung mit diesen Beständen lohnt 
sich. 

Nachdem Sie einen ersten Eindruck 
von der Arbeitsweise mit Datura be¬ 
kommen haben, geht es daran, eigene 
Bedürfnisse durch Erstellen einer Da¬ 
tenbank zu lösen. In diesem Punkte 
zeigt sich die Stärke von Datura. Bei 
der Erstellung eigener Datenmasken 
und -Strukturen ist der Benutzer in der 
Lage, durch pure Maskenbildung am 
Monitor komplette Datenstrukluren zu 
kreieren. Sie können auf einer mehrere 
Bildschirraseiten großen Fläche belie¬ 
big Text verteilen, Linien ziehen und 
Felder für Dateneingaben bestimmen. 
Letztere werden vom Programm auto¬ 
matisch als Datenfelder interpretiert 


und später bei der Eingabe und beim 
Editieren als solche behandelt; simpler 
gehl es nicht. Es entfallen komplizierte 
Bestimmungen von Datentyp und 
-länge. 

Wenn Sie die Strukturen mit Daten ge¬ 
füllt haben, so lassen sich diese durch 


einfaches Setzen von Fillern nach be¬ 
stimmten Suchworten durchsuchen. 
Ein alphabetischer Index kann ebenso 
abgerufen werden, aus dem alle Daten¬ 
sätze leicht eingesehen werden können. 
Ein Statusfeld am unteren Bildschirm¬ 
rand sorgt für die nötigen Informatio¬ 
nen über Nummer des aktuellen Daten¬ 
satzes oder Anzahl der in der aktuell 
bearbeiteten Datei vorhandenen Daten¬ 
sätze. 

Unterstützung von EMS - 
Speicher u nd Netzwerken 

Die simple Bedienungsweise des Pro¬ 
gramms wird durch nicht immer selbst¬ 
verständliche Extras ergänzt. So unter¬ 
stützt Datura beispielsweise EMS- 
Speicher oder kann in Netzwerken in¬ 
stalliert werden. dBase-kompatible Da¬ 
tensätze können verarbeitet oder er¬ 
stellt werden. Über Passwortschutz 
sind einige Funktionen für unbefugte 
Personen unzugänglich. 

Auch große Datenmengen lassen sich 
mit Datura verwalten: Grenzen werden 
dem Programm nur durch die Kapazität 
des Speichermediums gesetzt. 
Schönheitsfehler bei der gete.stetcn Da¬ 
tura Version 1.0 war, daß der Cursor 
nach Gebrauch des Programms nicht in 
die ursprüngliche Form gesetzt wurde, 
ein verschmerzbarer Nachteil, der si¬ 
cher in neueren Versionen behoben 
wird. Ein gut strukturiertes und nicht 
ohne Humor geschriebenes deutsches 
Anicilungsbuch führt den Benutzer gut 
in das Programm ein. Dieses 
liegt im Ringbuchforraat 
vor, was nicht jedermanns 
Freude ist. Eine beiliegende 
Referenzkarte für die Tasta¬ 
turbedienung sorgt für 
Übersicht während der Ar¬ 
beit mit dem Programm. 
Wer die beigelegte Rcgi- 
strierkaite einschickl, er¬ 
wirbt damit die Möglichkeit, 
einen Hotline-Service in An¬ 
spruch zu nehmen. Auch das 
Vorhandensein der Disket- 
tenformatc5,25 Zoll und 3,5 
Zoll spricht für die Sorgfalt, 
mit der diese Datenbank er- 
.stelll wurde. So fordert mit 
Datura ein rundherum ge¬ 
lungenes Produkt die gestan¬ 
denen Datenbanken heraus; diese Kon¬ 
kurrenz braucht das Programm sicher 
nicht zu scheuen. 


Weisere Informa/iown erfuifien Sie hei 
Tohit-Sofimsre, 4422Ahiius 


(Andreas Hein/jO 
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MEMO 

Organisation mit Eingewöhnung 

Nicht selten locken Flohmärkte, Kaufhäuser oder Antiquariate mit 
geschriebenen Angeboten, die man nicht ablehnen kann. Da werden dann 
die heimischen Regale zu kleinen Buchläden. Will man diese Bestände in 
den Griff bekommen, reicht meist eine Kartei nicht mehr aus; der Com¬ 
puter muß wieder herhalten. 


Vor gleichen Problemen stehen Bi- 
bliothekare(innen), wenn auch deren 
zu verwaltende Buchbestände ungleich 
größer sind. Datenbänke, die sich indi¬ 
viduell auf die Verwaltung von solch 
speziellen Daiensammlungen cinrich- 
ten lassen, existieren in großen Men¬ 
gen. Wer die Arbeit der Einrichtung 
solcher Programme scheut, der ist gut 
beraten, wenn ein Programm gleich 
alle Bedingungen bietet, die zur Ver¬ 
waltung spezieller Datenbestände er¬ 
forderlich sind. MEMO von Bibliosoft 
hat sich dieses Themas angenommen. 
Es handelt sich dabei um ein Pro¬ 
gramm. das im Hinblick auf diese be¬ 
stimmte Problematik erstellt wurde 
und daher für andere Datenmengen nur 
bedingt einsatzfähig ist. Vorteil für den 
Anwender ist, daß er mit Erwerb dieses 
Programms ein auf seine Probleme ab¬ 
gestimmtes Programm erhält, Nachteil 
ist. daß aufgrund der fixen Voreinstel¬ 
lungen speziellere Wünsche des An¬ 
wenders hinten anstehen müssen. 

Einfache Installa tion 

Die Installation ist denkbar einfach. 
MEMO wird mit einem Umfang von 
vier Disketten geliefert, deren erste ein 
Installationsprogramm enthält, das 


dem Benutzer fast alle Arbeit abnimmt. 
Von der Erstellung der gewünschten 
Untervcrzcichnisse bis zur Modifizie¬ 
rung der Konfigurationsdatei CON¬ 
FIG.SYS geschieht alles automatisch. 
Erwähnenswert i.st bei diesem Installa¬ 
tionsprogramm. daß es dem Benutzer 
am Ende anzeigt, welche Unicrver- 
zeichnisse mit einer Pfaddefinition di¬ 
rekt angesprochen werden. Dieser 
kann per Tastendruck wählen, in wel¬ 
ches Unterverzeichnis er die Startdatei 
von MEMO kopiert haben will. 
Danach kann MEMO von jedem Ver¬ 
zeichnis aus problemlos aufgerufen 
werden. Beim Erststart erstellt das Pro¬ 
gramm die erforderlichen Datensätze, 
und bei allen weiteren Aufrufen ge¬ 
langt der Benutzer in ein Auswahlme¬ 
nü, das im Zeitalter des SAA-Stan- 
dards etwas spartanisch anmutet: 
Durch Einklammerung gekennzeich¬ 
nete Buchstaben leiten Funktionen ein, 
die stichwortartig in Gruppen zuje fünf 
Punkten auf dem Bildschirm angeord¬ 
net sind. 

Im unteren Teil des Bildschirms w'er- 
den je nach Funktion die Tasten ange¬ 
geben, die die im Handbuch oder in der 
Hilfsfunktion dokumentierte Dienste 
ermöglichen. Das wirkt zu Beginn der 
Arbeit mit MEMO sehr unübersicht¬ 
lich; doch kann 
man sich schließ¬ 
lich an alles ge¬ 
wöhnen, auch an 
diese Art der Be¬ 
nutzerführung. 

Die Eintragungen 
neuer Daten in 
den Bestand hätte 
allerdings mit et¬ 
was größerer 
Sorgfalt bedacht 
werden können. 
So fiel zum einen 
auf. daß die Mas¬ 
ke wenig Wider¬ 
standskraft beim 
Löschen von 
Buchstaben in¬ 
nerhalb der Fel¬ 


der bewies. Ebenfalls gewöhnungsbe¬ 
dürftig ist. daß bereits eingetippte Er¬ 
gänzungen erst aus dem Hauptmenü 
heraus in den Datenbestand eingefügt 
werden können. Das kann zu Verwir¬ 
rungen führen, will man direkt nach 
Eingabe von neuen Daten diese bei¬ 
spielsweise in einen der vielfältigen 
Suchvorgänge integrieren. Bevor man 
nicht die Funktion des Hinzufügens ge¬ 
wählt hat. findet man keine neuen Da¬ 
tensätze. 

Zweckmäßig angelegte 
Suchvorgänge 

Suchen kann der Anwender nach so 
ziemlich allem, was er möchte. Dazu 
stehen ihm Filter und kombinierte 
Suchvorgänge zur Verfügung; doch 
auch hier gilt: Gewöhnung an die Be- 
nutzertuhrung ist dringend erforder¬ 
lich. So sind zum Beispiel bei Such¬ 
wortbestimmungen die zu suchenden 
Begriffe gleichungsartig zu definieren 
(Autor=’Eco’). 

Dalcnim- und -export anderer Daten¬ 
bankformate (dBase) werden ebenso 
angeboten wie eine Schnittstelle zum 
Betriebssystem, bei der alle denkbaren 
MS-DOS-Funktionen benutzt werden 
können. 

Die Funktion 'Bestellung' ist im Zu¬ 
sammenhang mit einer Datenbank sehr 
ungewöhnlich, wird hier doch im 
Hauptmenü, das eigentlich Funktionen 
des Programms aufrufen sollte, ein Be¬ 
stellschein für MEMO-Zusätze ausge¬ 
druckt. So etwas gehört als Extrapro¬ 
gramm auf die Diskette, hat aber nichts 
im Hauptmenü eines Programms zu su¬ 
chen. 

Zu den Zusätzen, die hier angefordert 
werden können, gehört auch eine Er¬ 
weiterung, die eine Befehlskompatibi¬ 
lität zu dBase III ermöglicht. 

“Daten gespeichert — Benutz er 
vergessen“ 

Unter diesem Molto könnte die Daten¬ 
bank MEMO stehen. Das Programm 
kann alles, wenn es um die Verwaltung 
von Buchbeständen geht. Datenmen¬ 
gen mit anderen Verwallungskriterien 
werden nicht unterstützt, was jedoch 
auch nicht zur Aufgabe des Programms 
zählt. Vergessen wird sich allerdings 
so mancher Benutzer fühlen, denn die 
Steuerung von MEMO ist nicht immer 
das, was man benutzerfrcundlich 
nennt. Eingewöhnung ist dringend not¬ 
wendig, aber daran sollte eine erfolg¬ 
reiche Arbeit mit diesem Programm 
nicht scheitern. (Andreas Hein/jO 
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Sorcerian 

Weder Fisch noch Fleisch 

Das neueste Spiel aus dem Hause Sierra heißt SORCERIAN und ist eine 
Mischung aus Rüllenspiel und Arcade-Adventure. Wir haben die Streitaxt 
genommen und uns in den lokalen Dungeons etwas umgesehen. 


Wenn sich Sierra mit einem japani¬ 
schen Spiclehersteller zusamnicntuU 
kommt zumindest etwas dabei heraus, 
was sich von den Standard-Adventures 
aus Coarsegold unterscheidet. Ob posi¬ 
tiv oder negativ, das ist eine andere 
Frage. THEXDER war keine Sensa¬ 
tion, bei SILPHEED sah die Sache 
schon etwas anders aus. SORCERIAN 
vereinigt nun Elemente aus allen Arten 
von Spielen: die Entwicklung eines 
Charakters in der Form eines Rollen- 
spicls. Action in Form eines Arcadc- 
Adventures, eine Portion .Tump’n’Run 
und natürlich etliche zu lösende Rätsel. 
Die Mischung ist sogar einigermaßen 
wirksam! 

Neulic h, im Dungeon... 

Inhalt von SORCERIAN ist, mit einer 
Truppe von Abenteurern eine Vielzahl 
von Aufträgen durchzuführen. Die da¬ 
bei gewonnenen Erfahrungen und ein- 
gc.sammelten Schätze können dazu ver¬ 
wendet werden, die jeweiligen Charak¬ 
tere weiter aufzubauen. Sieben Merk¬ 
male können verbessert und vier 
Fähigkeiten erlernt werden, gewonne¬ 
ne Erfahrung schlägt sich auch in den 
Tiefschlägen nieder, die man cin- 
stecken kann. Eine Gruppe von Aben¬ 
teurern besteht aus bis zu vier Perso¬ 
nen. die aus vier Klassen gewählt wer¬ 
den können. Bis zu 10 Personen kön¬ 


nen verwaltet werden, wer von ihnen 
gerade nicht in Aktion i.st, verdient sein 
Geld in einem von 60 Berufen. 
Magisch begabte Personen sind in der 
Lage, aus einem Fundus von 120 Zau¬ 
bersprüchen zu wählen, die große Zahl 
ist jedoch nur Augenwischerei, da eine 
Vielzahl der Sprüche in der Praxis 
kaum benötigt wird. Hcilzauber kön¬ 
nen recht praktisch sein, genügend Hii- 
points reichen im allgemeinen auch 
— es wurde bislang nur eine Stelle ent¬ 
deckt, bei der tatsächlich ein bestimm¬ 
ter Spruch benötigt wird. Ähnlich ver¬ 
hält es sich mit den Berufen. Es ist 
überwiegend egal, was man privat 
treibt — eine Aufgabe kann jedoch nur 
gelöst werden, wenn zwei Personen 
mit bestimmten Berufen in der Party 
sind. Soviel zum Thema Rüllenspiel. 
Wer jetzt auf Dungeon-Action ä la 
Bard's Tale hofft, der wird vom weite¬ 
ren Verlauf vielleicht etwas enttäuscht 
.sein, es i.st nämlich Action ungesagt. In 
bester Arcade-Manicr wird die Party 
durch die verschiedenen Landschaften 
gesteuert und sammelt dort Hinweise 
und Gegenstände, um an anderen Stel¬ 
len Aktionen zu tätigen oder zu kämp¬ 
fen. Die Landschaften gestalten sich 
sehr abwechslungsreich. Schlösser und 
Städte sind ebenso Schauplatz wie un¬ 
terirdische Höhlen, Baumwipfel oder 
gar Schiffe. Allgegenwärtig sind auch 
verschiedene Formen von Gegnern, 
die gehörig an der 
Lebensenergie na¬ 
gen. Tun sie dies 
im Übermaß, so 
stirbt die Person, 
kann jedoch im 
Tempel oder beim 
Magier wiederbe¬ 
lebt werden. Der 
'l’od im Ruhestand 
i.st ebenso mög¬ 
lich. da die Perso¬ 
nen im Verlauf des 
Spiels altern, ln ei¬ 
nem solchen Fall 
kann eine Figur 
der zweiten Gene¬ 
ration geschaffen 
werden, die erlern¬ 
te Fähigkeiten und 
gefundene Objekte 


des Verschiedenen erbt. Die Aufträge 
sind in drei Szenarien zu je fünf Teil- 
Advenlurcs gegliedert, der Tenor eines 
jeden Auftrags lautet in etwa 'Su¬ 
che...', 'Rette...' oder 'Bekämpfe...'. 
Man kann diese Aufträge in beliebiger 
Reihenfolge erledigen, allerdings ist 
für höhere Levcls mehr Erfahrung nö¬ 
tig. Die kann man jedoch recht leicht 
erhalten, da man ein Level beliebig oft 
mit der gleichen Party durchspielen 
kann, wobei jedesmal Boni kassiert 
werden! 

Im Verlauf des Spiels finden sich viele 
Ausrüstungsgegenständc. die entweder 
verkauft oder von einer Figur wciier- 
verwendet werden können. Leider ist 
die Entscheidung eine einmalige, denn 
was man einmal hat, wird man nicht 
mehr los, weder durch Verkauf noch 
durch Tausch. Dies i.st besonders scha¬ 
de, da man maximal sechs Gegenstän¬ 
de tragen kann. 

Abenteurers F re ud und Lei d 

Auge und Ohr werden bei SORCE- 
RIAN zuminde.st einigermaßen ver¬ 
wöhnt. Die EGA-Grafik i.st schön bunt 
und schnell animiert, über fünfzig Mu¬ 
sikstücke untermalen das Geschehen. 
Allerdings kommt die Musik nur auf 
einer Zu.salzkarte voll zur Geltung, 
denn wenn man sie dort nicht gehört 
hat, erkennt man nur selten, was da aus 
dem PC-Speaker piepst - und aus ihm 
nervt die Untermalung eher. SORCE¬ 
RIAN kann den Spieler nur langsam 
für sich vereinnahmen. Es ist vor allem 
wichtig, den richtigen Einstieg zu fin¬ 
den. Ist er jedoch geschafft, kommt 
man von SORCERIAN nur noch 
schwer los. 

(Ein kleiner Tip. um Antangsl'rust zu vermei¬ 
den: Uvc\ 3.1 |THE GARDEN OF THE 
GODS] ist nicht nur einfach und ühersichtlich, 
sondern bringt auch recht viel Erfahrung und 
Geld. Jeweils zweimal .3.1 und 3.3 ist eine solide 
Ausgangsbasis. Szenario 3 ist im Schnitt am ein¬ 
fachsten. Szenario 2 dagegen meist unübersicht¬ 
lich.,.) 

Allerdings ist der Spielspaß im Ver¬ 
gleich zu komplexen Rolienspielen 
eher von kurzer Dauer, Sind die Figu¬ 
ren ersimal einigermaßen fit, so kann 
die Hälfte aller Aufträge in jeweils 20 
bis 30 Minuten gelöst werden — aber 
das mag auch ein Vorteil sein. Rollen¬ 
spielpuristen werden an SORCERIAN 
wohl nur wenig Gefallen Undcn. ähnli¬ 
ches gilt für Sierra-Freaks. Einen Blick 
sollte man aber auf alle Fälle riskieren, 
einzig der recht hohe Preis stellt da 
noch ein gewisses Hinderni.s dar. 

(Michael Anion/jO 



A rcaJf-Aciiim mif RoUem.spieU'inJlUsM’ti hii-tcl (Un hiiiiic Spckiiikel "Sorci'- 
rian" 
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Ultima VI 

Software-Orkan mit Flauten 

Der sechste Streich des Lord British stellt sicherlich den bisherigen Höhe¬ 
punkt der Ultiina-Serie dar und ist auch auf dem Gebiet der Rollenspiele ein 
absolutes Highlight. Die dem Spiel mitgegebenen Vorschußlorbeeren lassen 
darauf schließen, daß hier der König der computerisierten Roüenspiele ge¬ 
boren ist. 


Daß man mit Superlativen aller Art 
stets vorsichtig sein sollte, zeigte sich 
auch beim Test von Ultima VI. Auch 
bei diesem Programm kamen Schwä¬ 
chen zum Vorschein, die es allenfalls 
zum Kronprinzen der Rollenspiele, 
nicht aber zu mehr werden läßt. 

Invasion der Gargoyles 

Nach einem filmarligcn Intro gelangt 
der Held der Geschichte in den Thron¬ 
saal von Lord British und erfährt von 
einer Invasion der Gargoyles, die alle 
Altäre der Tugenden besetzt halten und 
Angst und Schrecken über das Land 
bringen. Mit wenig Informationen, 
aber mit getreuen Gefährten macht der 
Held sieh auf. dem Unheil ein Ende zu 
setzen. Auf seiner Reise durch Britan- 
nia trifft er unzählige Personen, die im 
Gespräch Hilfen und Tips geben, wenn 
sic richtig ausgehorcht werden. Diese 
Unterhaltungen laufen dabei nach ein¬ 
fachem und unkompliziertem Schema 
ab. Sie tippen ein beliebiges Wort, 
sprich dessen erste vier Buchstaben, 
ein. und der Gesprächspartner antwor¬ 
tet mit einer Floskel oder mehr oder 
weniger hilfreichen Worten. Welche 
Wörter dem Partner milgetcill werden 
sollen, bleibt dem Helden überlassen; 
er kann sich allerdings einer Hilfsfunk¬ 
tion bedienen, die Schlüsselwörter 
farbig kennzeichnet, sofern man über 


die entsprechende Grafikkartc verfügt 
(EGA/VGA). 

Außerhalb der Gespräche ist der Held 
in der Lage, mit fast allen Gegen.stän- 
den fast alles zu tun. Er ist dabei nicht 
mehr auf die Eingabe umständlicher 
Tastenkombinationen angewiesen, 
sondern kann das komplette Geschehen 
mit Hilfe von Maus und Iconliste steu¬ 
ern. Dieses System wurde in Ultima VI 
derart perfektioniert, daß es eine wahre 
Freude darstellt, dem Computer die 
Aktionen mitzutcilcn. Selbst alle denk¬ 
baren Aktionen mit dem ergatterten In¬ 
ventar sind so zu aktivieren; ein Kom¬ 
pliment an die Programmierer, die hier 
einmal ein exzellentes Gefühl für gute 
Benutzerlührung eines Programms zu¬ 
tage brachten. 

Komplexität ohne Langeweile 

Die eigentlich starke Seite beweist Ul¬ 
tima VI allerdings erst, wenn es um die 
Umsetzung der komplexen Story in ei¬ 
nem extrem komplexen Spielfeld geht. 
Eine ganze Welt mit allem, was dazu¬ 
gehört. liegt dem Spieler zur Erkun¬ 
dung zu Füßen. Städte, Grüften, Berge 
und Täler, Wälder, my.stische Orte. 
Parallclweltcn und Meere. Bewohner, 
die ihrer Arbeit nachgehen. Magier 
und Ungeheuer, Fürsten, Gefangene. 
Narren und Armeen. Ein Kaleidoskop 
von Leben und Lebensstätten tut sich 
dem Erforschen¬ 
den auf und läßt 
ihn über Wochen 
nicht los; denn wer 
dieses Spiel zu 
Ende bringen will, 
der sollte sich 
reichlich Zeit 
nehmen. 

Unnötige 
Fehler 

Daß Ultima VI 
dennoch nicht die 
Superlativen ver¬ 
dient, mit denen 
man es nach ersten 
Blicken überschüt¬ 



Pompösex Rollcn.spie/. Wenn da nieht die kleinen Fehler wären... 


ten möchte, liegt an Schwächen, die 
darauf hindeuten, daß das Programm 
nicht bis ins Letzte ausgete.stet wurde. 
Da ist zum einen die Spielstandsiche¬ 
rung. Nur einen SpicLstand erlaubt das 
Programm, ohne externe Kopiererei 
auf Datenträger zu bringen. Beim Test 
führte diese Tatsache zweimal dazu, 
daß mehrere Stunden erfolgreichen 
Spiels den bekannten Bach herunter¬ 
gingen. 

Fehler l; Nach einer heftigen Ausein¬ 
andersetzung mit Bösewichten in ei¬ 
nem unterirdischen Labyrinth war mit 
einem Mal die der Heldengruppe zuge¬ 
hörige Maus ver.schwunden. Was vom 
Spieler nicht machbar ist. das Trennen 
der Heldengruppe innerhalb verschie¬ 
dener Dungcon-Lcvcis, besorgte das 
Programm, indem cs die zum Rückzug 
befohlene Maus durch einen Treppen¬ 
gang von der Gruppe trennte. Die 
Maus war in einer anderen Etage als 
die Gruppe, ein Zusammenführen un¬ 
möglich. das Spiel an dieser Steile 
nicht weiterführbar; hätte man den 
Spielstand aufgrund des erfolgreich 
beendeten Kampfes gesichert, so wä¬ 
ren alle bis dahin unternommenen 
Spielzüge vergebens gewesen; das 
Spiel hätte von vorn begonnen werden 
müssen. 

Fehler 2: Gleiches Schicksal traf den 
Tester, nachdem er einen Einkaufs¬ 
bummel bei einem der in Britannia seß¬ 
haften Magier beenden wollte. Das 
Programm wehrte sich mit allen Mit¬ 
teln dagegen, aus der Unterhaltung mit 
dem Verkäufer zu springen. Keine Ta- 
stcnkombinaiion konnte eine Rückfüh¬ 
rung in den normalen Spielbetrieb her¬ 
beiführen; was blieb, war das Einladen 
des alten Spielstandes. 

Abhilfe schafft da ein besonnenes Si¬ 
chern des Spielstandes (vorherige Kon¬ 
trolle. ob alle Gruppenmitglieder bei¬ 
sammen sind, vorausgesetzt). 

Wer dieses beim Spiel beachtet, der 
wird trotz Fehler ein fast perfektes Rol¬ 
lenspiel mit allem, was Abenteurern 
Spaß macht, auf dem Bildschirm zu se¬ 
hen bekommen. Apropos Bildschirm: 
Das Programm unterstützt alle Grafik¬ 
karten. im EGA-Modus wird es aller¬ 
dings sehr langsam. Wir empfehlen 
den MCGA-Modus mit 256 Farben, 
dann kommt zu dem akustischen Ge¬ 
nuß — es versteht sich, daß dieser eine 
Zusatzkarlc vorausseizt - ein opti¬ 
scher, der das sehr gute Gesamtbild des 
Programms abrundet. 

ÜO 
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Digitale Joysticks am 
analogen Gameport... 
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Was man bei IBM-Konipatiblen als Joystick 
bezeichnet, ist nicht das, was sich der Rest der 
Welt darunter vorstellt. Mit j»erinj»em Hardware- 
Aufwand läßt sich Jedoch eine recht effektive 
Verbinduii}« zwischen den beiden Welten 


herstellen. 





^PC 


Die Joysticks, die in der IBM-Welt als 
solche gehandelt werden, unterschei¬ 
den sich in der Funktion erheblich von 
denen, die bei allen übrigen Rechnern 
und Spielekonsolen verwendet werden. 
Dies erfahrt man spätestens dann, 
wenn man sich einen gut gestylten 
'Freudenknüppel* gekauft hat und ver¬ 
sucht, ihn an den PC anzuschließen. 
Man braucht nicht nur eine spezielle 
Karte für den Anschluß, sondern auch 
besondere Joysticks für diese Karte — 
auf den ersten BlickJedenfalls... 

Ein PC Ist etwas Feines, und so wollte 
man sich beim Anschluß von Joysticks 
wohl etwas von der Masse der anderen 
Computer abheben. Also spendierte 
man seinerzeit dem PC einen Joystick- 
Adapter, der sich vom damaligen Stan¬ 
dard der Homecomputer erheblich un¬ 
terschied. Während dort das digitale 
Prinzip galt, wurde auf dem PC das an¬ 
aloge Prinzip bevorzugt. Die Unter¬ 
schiede sind gewaltig: Beim digitalen 
Joystick wird die Auswertung der Be¬ 
wegung über Schalter vorgenommen 
- entweder wird der Knüppel in eine 
bestimmte Richtung gedrückt oder 
nicht. Der PC i.st in die.ser Hinsicht et¬ 
was subtiler. Hier erfolgt die Auswer¬ 
tung über variable Widerstände (ähn¬ 
lich wie beim Lautstärkeregler eines 
Radios), die Richtung wird also auch in 
Zwischenstufen (’analog’) erfaßt. 
Hierfür ist etwas mehr Hardware erfor¬ 
derlich, die man als Zusatzkartc, auch 
bekannt als Gamecard oder -port, für 
den PC erwerben kann. Während sich 
parallel zur Vielfalt der Rechner mit di¬ 
gitalen Sticks ein breites Angebot an 
ebensolchen Slicks entwickelte, war 
der Markt für PC-Sticks eher mager. 
Mit der wachsenden Popularität der 
PCs und einem wachsenden Angebot 
an Spielen wurde auch die Joystick- 
Frage wieder akut. Die vorhandenen 
Analogsticks waren durch ihre Fragili¬ 
tät für harte Action-Spielc nur bedingt 
geeignet und konnten durch ihre me¬ 
chanische Empfindlichkeit und die pro¬ 
blematische Auswertung nicht so recht 
überzeugen. Abhilfe wurde auf ver¬ 
schiedenen Wegen ersonnen. Einige 
Hersteller statten ihre Rechner mit zu¬ 
sätzlichen Buchsen für digitale Sticks 
aus (PC 1512 / 1640) und wandelten 
die Signale in Cursorbewegungen um. 
Andere nahmen die Druckerschnitt- 
stellc und mißbrauchten sic zu ähnli¬ 
chen Zwecken, wobei die Bewegungen 
in Tastendrücke umgcselzt werden. 
Dies brachte zwar die Kompatibilität 
zum digitalen Standard, PC-Spiele 
konnten mit solchen Lösungen jedoch 
wenig anfangen, da sie auf den analo¬ 
gen Standard bauen. 


Unsere Bastellösung verbindet beide 
Welten miteinander. Sic erweitert ei¬ 
nen herkömmlichen Gameport so weil, 
daß sowohl analoge als auch digitale 
Joysticks am PC angeschlossen und 
ausgewertet werden können. Ein 
Mischbetrieb ist ebenso möglich wie 
die schnelle Umschaliung zwischen 
beiden Methoden. Die mechani.sche 
Stabilität der Digitaisticks wird absolut 
Hardware-kompatibel zum analogen 
Standard — und viele Spiele erhalten 
neue Qualitäten. Der Weg dorthin ist 
recht einfach. 

Ein Analogstick ist eigentlich nichts 
anderes als ein Spannungsteiler. Je 
nach Auslenkung werden zwei Wider¬ 
stände verändert, die nach einer Um¬ 
wandlung auf der Gamecard entspre¬ 
chende Zahlen werte liefern. Hier kann 
die Software die Auslenkung propor¬ 
tional auswerten, aus der Stellung des 
Sticks ist also nicht nur ersichtlich, in 
welche Richtung sich beispielsweise 
eine Spiclfigur bewegt, sondern auch 
die Geschwindigkeit, mit der sie dies 
tut. Es ist natürlich gut. wenn letztere 
Information auch im Spiel berücksich¬ 
tigt wird. Dies ist jedoch nicht immer 
der Fall, olf wird doch nur die generel¬ 
le Richtung abgefragt, also rauf, run¬ 
ter, rechts oder links. Dies entspricht 
bei einem Analog-Slick den maximalen 
Auslenkungen, denen fe.ste Werte des 
Spannungsteilers zugeordncl werden 
können. Somit reduzieren sich die rele¬ 
vanten Werte auf drei: am einen Ende 
der Skala der Mininialwert, der mit ei¬ 
nem Widerstand von zirka 0 ß anzuset¬ 
zen ist. am anderen Ende der Maximal¬ 
wert und in der Mitte ein Wert, der die 
Neutralstellung repräseniieri. In der 
Praxis kommen somit bei einem Stan¬ 
dardwert von 100 kß für den Gesami- 
widerstand eines analogen Joysticks 
Schritte von etwa 50 kß zustande: Oß 
für Minimum. 50 kß für Mittelstellung 
und 100 kß für maximale Auslenkung. 

Die in Abb. I gezeigte Schaltung er¬ 
zeugt diese Werte, die an eine normale 
Gamecard weiiergeleitet und dort aus- 
gewcrtel werden. Die Schaltung ist für 
zwei Joysticks ausgelegt, die Funktion 
soll nun für die obere Hälfte dargestellt 
werden. RX1-RX4 bilden jeweils einen 
Spannungsteiler für die X- und Y- 
Koordinaten, der die analogen Werte 
repräsentiert. Mit dem Analog-Schal- 
icr SO werden die der Auslenkung des 
digitalen Slicks an der Buch.se ST2 ent¬ 
sprechenden Werte des Spannungstei¬ 
lers erzeugt und an die Gamccard wei- 
lergegcbcn. Die Belegung der digitalen 
Buchse entspricht dem Standard von 
Atari / Commodore, so daß dort jeder 
im Handel erhältliche digitale Stick an¬ 


geschlossen werden kann. Über den 
Kippschalter SWl kann zusätzlich 
noch zwi.schen dem Signal eine.s analo¬ 
gen Joysticks an STI und dem von der 
Schaltung erzeugten Signal umgeschal¬ 
tet werden. Entsprechend wird mit dem 
zweiten Kanal des Gameports verfah¬ 
ren, die hierfür zuständigen Elemente 
sind RX5-RX8. S2, ST4. SW2 und 
ST3. Die Inverter von Sl und R1-R8 
sind für die generelle Auswuhllogik zu¬ 
ständig, C0-C2 entkoppeln die Versor¬ 
gung der Schaltkreise. 

Der Anschluß an den Gameport hängt 
von dessen Gestaltung ab. Es gibt zwei 
Varianten: Einige Karten führen beide 
Kanäle auf einer Buchse, in diesem Fall 
ist die obere Hälfte von Bild 3 zu ver¬ 
wenden. Werden beide Kanäle auf ver¬ 
schiedenen Buchsen geführt, so kann 
die untere Hälfte von Bild 3 verwendet 
werden, eine Verdrahtung gemäß des 
oberen Plans und die Verwendung der 
ersten (obersten) Buchse der Karte 
sollte jedoch auch funktionieren. 

Der Aufbau der Schaltung kann auf ei¬ 
ner einfachen Lochrasterplatinc erfol¬ 
gen. diese findet mit den Buchsen 
ST1-ST4 in einem Gehäuse nach Ge¬ 
schmack des Anwenders Platz. Der 
Anschluß an die Gamecard kann von 
die,sem Gehäuse über ein festes Kabel 
mit entsprechendem(n) Stcckcr(n) er¬ 
folgen. Die Versorgung der Schaltung 
erfolgt über die Gamecard, beim Auf¬ 
bau ist sehr sorgfältig vorzugehen, da 
Kurzschlüsse den kompletten Rechner 
in Mitleidenschaft ziehen können. Auf 
die Erstellung eines Layouts für die 
Leiterplatte wurde verzichtet. Bild 4 
liefert die Liste für die benötigten Bau¬ 
teile der Vollversion. Statt den 
74HC4066 können auch CMOS-Bau- 
steine vom Typ 4066 verwendet wer¬ 
den. der 74HC04 kann auch durch ei¬ 
nen 74LS04 ersetzt werden. ST1-ST4 
sind normale SUB-D-Stecker mit 9 und 
SUB-D-Buchsen mit 15 Polen. SWl 
und SW2 zweipolige Umschalter. Je 
nach Anschluß an die Gamecard sind 
noch entsprechende Kabel und i-2 
SUB-D-Stecker mit 15 Polen erforder¬ 
lich (ST5, ST6), ein passables Gehäuse 
verleiht dem Interface den letzten 
Schliff. 

Kleine Probleme 

Gut und schön, aber einige Schwach¬ 
punkte besitzt die Lösung dennoch. 
Zum einen ist es die Ausstattung der 
analogen Sticks mit zwei Feuerknöp¬ 
fen. Zwar hat auch ein digitaler Stick 
meist zwei oder mehr Feuerknöpfe, 
diese werden jedoch auf einer Leitung 
ausgewertet. Nicht so beim PC. der tat¬ 
sächlich zwischen zwei Feuerknöpfen 
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unterscheidet. In der vorliegenden 
Schaltung wurde das Feuer-Signal des 
digitalen Sticks über die Dioden D1-D4 
auf die beiden Leitungen des Analog- 
Sticks verteilt. Es ist jedoch sinnvoller, 
beide Signale getrennt zu verarbeiten, 
da einige Spiele tatsächlich beide 
Knöpfe unterschiedlich auswerten. In 
diesem Falle werden die beiden Dioden 
weggelassen, Pin 6 des digitalen Joy¬ 
sticks wird direkt mit Pin 2 des analo¬ 
gen verbunden, Pin 7 des analogen 
Sticks statt mit der Diode mit einem ex¬ 
ternen Taster. Dies kann eine zusätzli¬ 
che Klinkenbuchse sein, an die ein zu¬ 
sätzlicher Taster angeschlossen wird, 
sinnvoller ist es jedoch, diese Leitung 
an einen der freien Pins (5 oder 6) der 
digitalen Buchse zu legen. Laut Digi- 
Standard sind diese Leitungen zwar för 
Paddies vorgesehen, dies ist jedoch 
hier nicht relevant. Das Kabel des digi¬ 
talen Sticks kann entsprechend modifi¬ 
ziert werden, so daß entweder ein zu¬ 
sätzlicher Taster die Funktion des 
zweiten Feuerknopfes übernimmt oder 
ein bereits im Stick vorhandener Taster 
dies nach einem entsprechenden Um¬ 
bau des Joysticks tut — die entspre¬ 
chende Leitung muß einfach nach Mas¬ 
se getastet werden. Ansonsten ent¬ 
spricht die Belegung der digitalen 
Buchse dem Standard, es wurden auch 
die Leitungen zur Stromversorgung ex¬ 
terner Schaltungen (Dauerfeuer und .so 
weiter) berücksichtigt. 

Ein anderes Problem ist der Abgleich 
der simulierenden Widerstände. Die 
im Schaltplan angegebenen Werte von 
47 kfl entsprechen dem theoretischen 
Normalwert. Dieser bringt auf einem 
normalen PC auch optimale Ergebnis¬ 
se, bei schnelleren Rechnern können 
jedoch Abweichungen auftreten. Da 

> **************************** 

20 ’ * JOYSTICK - TESTPROGRAMM * 

30 • • (C)1990 by M.A. und DMV • 

40 • * GW-Basic * 

50 • »***«*•*•*••*•*******«**«** 

60 ’ 

70 ’ Ausgabemaske erstellen 
00 ’ 

90 CLS 

100 LOCATE 2, 7 

110 PRINT "Joystick 1“ 

120 LOCATE 4, 3 

130 PRINT "X-Koordinate:" 

140 LOCATE 6, 3 

150 PRINT "Y-Koordinate:" 

160 LOCATE 8, 3 

170 PRINT "Feuerknopf 1:" 

180 LOCATE 10, 3 

190 PRINT "Feuerknopf 2:" 

200 LOCATE 13, 7 
210 PRINT "Joystick 2" 

220 LOCATE 15, 3 

230 PRINT "X-Koordinate:” 

240 LOCATE 17, 3 

250 PRINT "Y-Koordinate:" 

260 LOCATE 19, 3 

270 PRINT "Feuerknopf i:" 

280 LOCATE 21, 3 

290 PRINT "Feue'rknopf 2:" 

300 ' 

310 ' Rahmen 1 zeichnen 
320 ’ 

330 LOCATE 1, 1 
340 PRINT CHRS(201); 

350 FOR I = 1 TO 20 
360 PRINT CHR$(205); 


STÜCKLISTE "DIGITAL-ANALOG-WANDLER" FÜR PC-JOYSTICK 
Anzahl Teilename Typ / Wert 


3 C0,C1,C2 

4 D1,D2,D3,D4 

8 R1,R2,R3,R4,R5,R6,R7,R8 

8 RXl,RX2,RX3,RX4,RX5,RX6, 

2 S0,S2 

1 S1 

2 SW1,SW2 

2 ST2,ST4 

2 ST1,ST3 

1 ST5 

{ 1 ST6 


Kondensator lOOnF 
Diode lN414a 
Widerstand lOKO 
,RX8 Widerstand 47Kn 

IC 74HC4066 {oder 4066} 

IC 74HC04 {oder 74(LS)04} 
2-poliger Wechsel-Schalter 
D-stecicer 9-polig 
D-Buchse 15-polig 
D-Stecker is-polig 
D-Stecker 15-polig } 


A/}h. S: Die Bauteileliste fiir ein völlig neues Joystick-Feeling 


die Auswertung analoger Sticks in je¬ 
dem Fall ein sehr zeitkritischer Vor¬ 
gang ist, können die Ergebnisse auf 
schnellen Rechnern nicht immer ganz 
befriedigen. Gleicht die Software die 
erhöhte Taktfrequenz des Rechners 
nicht aus, kommt es zu Fehlinterpreta¬ 
tionen. Hier kann nun abgeholfen wer¬ 
den, indem bei schnelleren Rechnern 
größere Widerstände eingesetzt wer¬ 
den. Der Wert hierzu muß experimen¬ 
tell ermittelt werden. 

Zum Abgleich der Trimmer und zum 
generellen Test (der Bastelei und nor¬ 
maler Analog-Sticks) kann das in Li- 
sting 1 gezeigte Testprogramm ver¬ 
wendet werden. Die Praxis hat jedoch 
gezeigt, daß die angegebenen Wider¬ 
stände auf den meisten Rechnern und 
mit den meisten Programmen passable 
Werte liefern. (Getestet wurde auf ei¬ 
nem PC mit 8 und 10 MHz und einem 
AT mit 8/16 MHz.) 

Ob ein Spiel mit dem Interface funktio¬ 
niert, muß getestet werden. Als Faust¬ 
regel läßt sich folgendes sagen. Flugsi¬ 
mulatoren wie der FLIGHT SIMULA¬ 
TOR, BOB oder F19 werten die Joy- 

370 NEXT I 1 

380 PRINT CHRS(187) I 

390 FOR I = 2 TO 21 

400 LOCATE I, 1: PRINT CHR$(186) 

410 LOCATE I, 22; PRINT CHRS(186) 

420 NEXT I 

430 PRINT CHRS(1B7) 

440 LOCATE 22, 1 
450 PRINT CHR$(200); 

460 FOR I s 1 TO 20 
470 PRINT CHRS(205); 

480 NEXT I 

490 PRINT CHR$(108) 

500 • 

510 * Hinweis 
520 • 

530 LOCATE 2, 56 

540 PRINT "Joystick-Testprogramra" 

550 LOCATE 4, 56 

560 PRINT "(C)1990 by M.A. S DMV" 

570 LOCATE 9, 55 

580 PRINT "Optimale Werte:" 

590 LOCATE 11, 55 

600 PRINT "Links / Oben: I-IO" 

610 LOCATE 13, 55 

620 PRINT "Neutral: 90-110" 

630 LOCATE 15, 55 

640 PRINT "Rechts / Unten: 190-200" 
650 LOCATE 21, 55 

660 PRINT "Abbruch mit einer Taste" 
670 ' 

680 ' Rahmen 2 zeichnen 
690 ' 

700 LOCATE 1, 53 
710 PRINT CHRS{201); 

720 FOR I = 1 TO 25 


sticks normalerweise analog aus, die 
Schaltung greift hier nicht oder nicht 
richtig. Action- und Ballerspiele je¬ 
doch verzichten meist auf Feinheiten 
und begnügen sich mit Extremwerten. 
Als Beispiele für Programme, denen 
das Interface geradezu auf den Leib ge¬ 
lötet ist, wären SLIPHEED, GHOST- 
BUSTERS II oder XENON II zu nen¬ 
nen. (Letzteres war wegen seiner tasta¬ 
turgefährdenden Bedienung der eigent¬ 
liche Anlaß für die Entwicklung.) 
Solche Spiele gewinnen durch das In¬ 
terface ungemein, aber auch die Hard¬ 
ware mit der sensiblen Mechanik von 
Analog-Stick oder Tastatur freut sich 
über die 'Schonzeit'. 

(Michael Anton/rs) 


Achtung: 

Aufbau und Betrieb der Schaltung erfol¬ 
gen auf eigenes Risiko, Autor und Ver¬ 
lag übernehmen keinerlei Garantien. 
'Pfusch am Bau’ kann den Rechner zer¬ 
stören (Kurzschluß!), im Basteln Unge¬ 
übte sollten Experten zu Rate ziehen!!! 


730 PRINT CHRS(205); 

740 NEXT I 

750 PRINT CHR$(187) 

760 FOR I = 2 TO 22 

770 LOCATE 1, 53: PRINT CHRS(186) 

780 LOCATE I, 79: PRINT CHRSn86) 

790 NEXT I 

800 LOCATE 22, 53 

810 PRINT CHRS(200); 

B20 FOR I = 1 TO 25 
830 PRINT CHR${205); 

840 NEXT I 

050 PRINT CHRS{188) 

660 ' 

870 ' Abfrageschleife 
880 ' 

890 LOCATE 4, 18, 0 
900 PRINT ÜSING "###"; STICK(Ü) 
910 LOCATE 6, 18, 0 
920 PRINT USING "f##"; STICK(l) 
930 LOCATE 15, 18, 0 
940 PRINT USING "#*#"; STICK(2) 
950 LOCATE 17, 18, 0 
960 PRINT USING "###"; STICK(3) 
970 LOCATE 8, 16, 0 
980 IF STRIG<1) = -1 THEN PRINT 
"EIN" ELSE PRINT "AUS" 

990 LOCATE 10, 18, 0 
1000 IF STRrG(5) = -1 THEN PRINT 
"EIN" ELSE PRINT "AUS" 

1010 LOCATE 19, 16, 0 
1020 IF STRIG(3) = -1 THEN PRINT 
"EIN" ELSE PRINT "AUS" 

1030 LOCATE 21, 18, 0 

1040 IF STRIG(7> = -1 THEN PRINT 


"BIN" ELSE PRINT “AUS" 

i05^^^NKEYjjj^^^^gJ^^90 
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Glosse —I 


Deutsches Sprach, schweres Sprach! 

oder der Kampf mit dem Taiwan-Handbuch 


Also, jetzt ist er ja endlich da. der neue 
Multiscan-Monitor. Das sind wirklich 
tolle Dinger; sie stellen sich automa¬ 
tisch auf die Scan-Frequenz der Grafik¬ 
karte ein und können damit so ziemlich 
alles darstellen, was man in seinen PC 
hineinstecken kann, sogar in Farbe und 
mit einer Auflösung von 800x600 
Punkten. Natürlich gibt es so etwas 
nicht umsonst, aber es muß ja nicht un¬ 
bedingt ein Markengerät sein! Auf den 
Namen habe ich (außer bei Druckern) 
noch nie viel Wert gelegt; Hauptsache, 
der Monitor laugt etwas, und ich gebe 
möglichst wenig Geld dafür aus. 

Jetzt steht er auf meinem Schreibtisch. 
Wer Geld sparen will, darf natürlich 
nicht allzu viel Ausstattung erwarten. 
Immerhin, mein Multiscan (ein absolu¬ 
tes Standardmodell, nicht teuer, aber 
solide) wird mit einem zirka 20seitigen 
User’s Manual ausgeliefert, in dem in 
Englisch alles Wichtige, wie Slecker- 
belcgungen. Frequenzband, Schalter¬ 
stellungen und Bedienung, erklärt 
wird. Da man im Compulergeschäft 
mit Deutsch sowieso nicht allzu weit 
kommt, stört das auch nicht weiter: 
Wer Informationen braucht, die über 
die normale Bedienung hinausgehen, 
versteht schon, was los ist. 

Mein Monitorhersteiler wollte es aber 
ganz besonders gut machen (und viel¬ 
leicht einer Rüge diverser Testzeit¬ 
schriften entgehen - sowas ist wichtig 
heutzutage!) und hat das Kapitel mit 
der Überschrift “Wichtige Sicherun¬ 
gen“ komplett ins Deutsche übersetzt. 
Obwohl solche Kapitel normalerweise 
immer denselben Inhalt haben, nach 
dem Schema »Versuchen Sie niemals, 
Ihr Diskettenlaufwerk in der Dusche zu 
betreiben, wenn Sie ein phosphathalti- 
ges Shampoo verwenden!«, und ich sie 
deshalb üblicherweise einfach be¬ 
drucktes Papier sein lasse, beeindruck¬ 
te mich diese zuvorkommende Lei¬ 
stung so sehr, daß ich mich dazu ent¬ 
schloß, doch einmal einen Blick darauf 
zu werfen, obwohl ich vermutlich mit 
der englischen Version besser bedient 
gewesen wäre. 

Es fing noch relativ harmlos an: »Lesen 
Sie alle von diesen Anweisungen.« 

Na. perfektes Deutsch schreibt der 
Mensch ja nicht gerade! Aber man ist ja 
einiges gewöhnt. Auf gute Sprache le¬ 
gen wir hier schließlich keinen Wert, 
wichtig ist. daß man versteht, was ge¬ 
meint ist. Und dazu erscheinen mir die 


- stilistisch vielleicht nicht ganz so 
einwandfreien —»neudeutschen« Wör¬ 
ter wie »Interrupt« doch recht geeignet. 
Daß dies so ist. wird mir jeder bestäti¬ 
gen. der schon einmal ein ganzes Buch 
voll von »Unterbrechungen« gelesen 
hat und hinterher genauso klug war wie 
zuvor. Wohin die Deutschtümelei füh¬ 
ren kann, sieht man schließlich auch an 
den Programmen und Handbüchern 
solch renommierter Firmen wie Micro¬ 
soft, oder wissen Sie auf Anhieb^ was 
gemeint ist, wenn da ein Menü »Über¬ 
tragen« heißt oder jemand von einer 
»Eingabeaufforderung« redet? Ich 
überlege da jedenfalls länger als bei 
»Files« oder »Prompt«. 

Aber zurück zum Text. Ganz so ein¬ 
fach wollte man es mir dann nämlich 
doch nicht machen: 

»Ausstöp.seln Sie diesen Monitor vom 
Wandausgang vor der Reinigung, 
Mirnmer die Flüssigkeitsreinigungs¬ 
mitteln oder die Aerosolreinigungsmit- 
tcln verwenden. Verwenden Sie ein 
feuchtes Tuch zur Reinigung.« 

Naja, also so viele Druckfehler auf ei¬ 
nem Fleck hat nicht einmal meine örtli¬ 
che Tageszeitung! Aber es war ja leider 
noch nicht alles: 

»Mirnmer die nicht von den Monitor- 
herstellern empfehlenden Vorrichtun¬ 
gen verwenden, da sie die Gefahren 
entstünden.« 

Also, wer entsteht jetzt, die Vorrich¬ 
tung oder der Hersteller? Und was be¬ 
deutet »Mirnmer«? 

Es ging weiter so; der Text erwies sich 
als ungefähr so leicht zu lesen wie eine 
Abhandlung über den Verbraucher¬ 
schutz bei Büroklammern. In wirklich 
ernste Probleme stürzte mich dann aber 
der Satz: 

»Dieser Monitor wird mit einem drei¬ 
adriggeerdeten Typ von Abstecker aus¬ 
gerüstet. ein Abstecker mit einem drit¬ 
ten (Erdschluß) Stift. Dieser Abstecker 
entspricht nur einem Erdschlussstrom¬ 
ausgang.« 

Was zum ... bedeutet »dreiadriggeer¬ 
det«? Sind bei dem Stecker alle Kabel 
geerdet? Kann ja wohl nicht sein (Ich 
stelle mir gerade den Powerus inter- 
ruptus im ganzen Haus vor). Und was 
hat man sich unter einem »Abstecker« 
vorzustellen? Ich kenne Abstecher, das 
sind diese Leute mit den Messern aus 
den Filmen im Fernsehen, aber Ab¬ 
stecker? Und wie soll ich (später im 
Text) »Nimmer den Sicherungszweck 


des Erdschlusstypabsteckers ver¬ 
fehlen«? 

An dieser Stelle kam mir dann zum 
Glück die Erleuchtung. Ich blätterte 
zwei Seiten zurück und fand dort in der 
englischen Version: 

»This Monitor is equipped with a three- 
wirc grounding type plug. a plug ha- 
ving a third (grounding) pin.« 

Ei gugge da! Plötzlich ergibt der Satz ja 
sogar einen Sinn! Mir ging ein Halo¬ 
genscheinwerfer auf: 

1. Die Anleitung wurde WÖRTLICH 
aus dem Englischen übersetzt, und 

2. der Übersetzer (sotem vorhanden; 
siehe unten) kann für keine 27 Pfennige 
nachgedacht haben: In Deutschland 
gibt es nämlich keine Stecker mit 3 
Pins. (Das ist eigentlich falsch! In der 
Küche habe ich einen solchen An¬ 
schluß für die Versorgung eines Her¬ 
des mit 380 V Drehstrom gefunden. 
Von dem Versuch, den Monitor dort 
allzuschließen, sah ich allerdings nach 
einem Blick auf die Garantiebedingun¬ 
gen ab.) 

Aber wer macht eine derartig schlechte 
Übersetzung? So blöd kann doch kei¬ 
ner sein! So etwas produziert doch 
höchstens mein Editor bei Regenwet- 
ler! Sollte da etwa...? Also inzwischen 
bin ich ziemlich überzeugt davon, daß 
diese Übersetzung aus dem Computer 
stammt. CAT (Computer Aided Trans¬ 
lation = Computerunterstützte Über¬ 
setzung) heißt das Stichwort. Soviel 
zur künstlichen Dummheit. Anderer¬ 
seits scheint man dem Computer auch 
nicht ganz getraut zu haben, vielleicht 
wußte man von den eingebauten Recht¬ 
schreibfehlern (mirnmer und nimmer). 
Jedenfalls neigen auch Computer nor¬ 
malerweise nicht zu Stilblüten wie 
»dies wird die Beschädigung des Moni¬ 
tors verursacht aus dem Stoss der 
Hauptleitung verhütten«. Was hat mein 
Monitor mit Stahlherstellung zu tun? 
Oder ist er etwa »Error resistant«, weil 
»seif correcting«? 

Egal, was es nun genau ist. ineine Lek¬ 
tion bezüglich deutscher Übersetzun¬ 
gen habe ich gelernt. Dabei bin ich zu 
dem Entschluß gekommen, lieber eine 
englische Anleitung zu lesen als eine 
dilettantisch übersetzte, oder einfach 
gesagt: “This translalion can you fol¬ 
get and aroLind the corner bring!“ 

(Jörg Schwieder/jf) 
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»PC International« 10/11'90 
erhalten Sie ab: 



Der neue Laserdrucker von Amstrad paßt sich vom Design her per¬ 
fekt an die IQOOer-Serie an. 



CPC 


Von vielen wird er bereits mit 
Neugierde erwartet, von Am¬ 
strad Deutschland wird er aber 
sicher nicht zu bekommen 
sein: der auf der 'Insel" produ¬ 
zierte neue CPC! Wir zeigen Ih¬ 
nen, was es mit den Nachfol¬ 
gern des 464 und 6128 auf sich 
hat und wo man ihn trotz allem 
in der Bundesrepublik erwer¬ 
ben kann. 

Mit Auslaufen der CEUS-Serie 
liefern wir Ihnen tolle Utilities, 
die aus Ihrem CPC einen total 
grafisch bedienbaren Compu¬ 
ter machen. 

Auch mit der nächsten Doppel¬ 
ausgabe bekommen Sie wie¬ 
der mehr als 250 kByte Pro¬ 
grammcode, der Ihnen nützli¬ 
che Anwendungen und unter¬ 
haltsame Spiele auf den 
Monitor bringt. 

PCW 


Für den PCW bringen wir Ih¬ 
nen nächstes Mal eine kleine 


Hardwarebastelei. Wenn Sie 
Ihren Computer nicht immer 
aus- und anschalten möchten, 
wenn Sie ein neues Programm 
starten wollen, dann haben wir 
genau das Richtige für Sie. Ein 
Resetschalter am PCW ist si¬ 
cherlich ein paar Minuten Ba¬ 
stelarbeit für den PCW wert. 
Wer viel mit dem Kopierpro¬ 
gramm DISCKIT arbeitet, wird 
sicherlich Interesse an unse¬ 
rem Patch für dieses Pro¬ 
gramm haben. Ist es doch nach 
unserem Patch möglich, Dis¬ 
ketten mit 43 Spuren zu forma¬ 
tieren, die danach noch bootfä¬ 
hig sind. Ebenfalls ist die Ge¬ 
schwindigkeit beim Formatie¬ 
ren wesentlich zu erhöhen. So 
benötigt man für eine CF2-Dis- 
kette nur knappe 17 Sekunden. 

HARDWARE 

In Sachen Hardware möchten 
wir Ihnen den neuen Laser¬ 
drucker von Amstrad vorstel¬ 
len. Design und Ausstattung 
lassen den LQ 4000 nicht nur 


im professionellen Bereich 
eine Anwendung finden. 

PC 


Auch den Handyscanner von 
DFI möchten wir Ihnen nicht 
vorenthalten. 



Mit dem Handyscanner von DF! läßt sich so 
ziemlich alles vom Papier auf den Bildschirm 
bringen 


Bei einer maximalen Auflö¬ 
sung von 400 dpi lassen sich 
so detailgetreue Kopien von 
Vorlagen auf dem Monitor dar¬ 
stellen. 

Softwaretests und wertvolle 
Tricks runden das Bild ab. 


DMV.2, 53 - 58, 63 - 68, 119, 120 


Dobbertin Elektronik.17 

G + L electronic.27 

Göddeker.11 


DIE INSERENTEN 


Kosmalla + Partner.107 

Kotulla.17 


FSE - Frank Strauß Elektronik.19 


Weber.27 

Weeske.23 

van der Zaim.11 
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DATABOX 

DATABOX 

ist der preiswerte Software-Service Ihrer Zeitschrift 


DATABOX 

enthält lauffähige Programme für ihren Einsatz 

DATABOX 

lohnt sich auf jeden Fali - Monat für Monat 


PCW 8256/8512/9512 


LocoScript-Tlps 

Zu allen im Text beschriebenen LocoScript-Patches 
finden Sie auf der DATABOX automatisch ablaufen¬ 
de Patch-Programme. 

CPC-Programme auf dem PCW 
Bannerschriften sind nun auch mit dem PCW mög¬ 
lich. Wem das Abtippen dieses Superprogramms zu 
aufwendig erscheint, der kann auf unsere DATABOX 
zurückgreifen. 

Dolmetscher 

Wenn Sie Ihren Computer nicht verstehen, bringen 
Sie ihm doch einfach bei, sich verständlich auszu¬ 
drücken. Auf der DATABOX finden Sie alles, was 
dazu benötigt wird. 


Erweitertes System 

Haben Sie den Artikel aufmerksam gelesen? Wir 
bieten Ihnen auf der DATABOX alle im Artikel be¬ 
schriebenen Kommandos fertig compiliert und start¬ 
bereit. 


Bonusprogramm Diskopti 
Wenn Sie im Laufwerk B noch mit dem normalen 
Diskettenformat arbeiten und wenn Sie die Ge¬ 
schwindigkeit beim Zugriff auf Ihre Dateien erhöhen 
wollen, können wir Ihnen ein Programm anbieten, 
das dies für Sie erledigt. 


Einzelbezugspreis für DATABOX: 
PCW - 3-Zoll-Diskette 


24.- DM 

Wenn Sie überden DMV-Verlag bestellen, gitt folgendes: 

Inland: Ausland: 

Einzelpreis 24,- DM Einzelpreis 24,- OM 

zzgl. Versandkosten 4,- DM zzgl. ^rsandkosten 6,- DM 


Zablungshinwelae: 

Am einfachsten per Vorkasse (Verrechnungsscheck) oder als Nachnahme zuzüglich der Nach¬ 
nahmegebühr. (Bei Lieferungen Ins Ausland Ist Nachnahme nicht möglich.) 


Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag • Postfach 250 ■ 3440 Eschwege 
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Wissen ist Macht. ) 

Neu im DMV-Verlag: Computer-Wissen. Ein Magazin, 
das Ihnen Wissen über Ihren PC vermittelt, das ändere nicht haben. 


Unsere Themen: Alles, was Ihnen hilft, den PC besser zu nutzen und zu 
verstehen. Mit DMV-Computer-Wissen steht Ihnen das gesamte Know-how der 
DMV-Redaktionen in leichtverständlicher Form zur Verfügung. 


Aus dem Inhalt: 

Programme: 

- Deutsche Fehlermeldungen in 
GW-BASIC 

- Datei- und Verzeichniswahl mit 
Cursortasten 

- BASIC-Programme automatisch 
strukturieren 

- Konvertierungsprogramm 
von GW nach Turbo 


Routinen: 

- Umfangreiche Berechnungs¬ 
funktionen 

- Konfiguration feststellen 

- Hardcopy programmgesteuert 

- Grafikroutinen 

- Mausroutinen mit Testprogramm 


Super-Toolbox für 
eigene Programme 


BASIC-Routinensammiung 
mit über 500 Funktlorven! 


Deutsche Fehlermeldungen 
zum ’Nachladen’ 


Programmkonverter 
GW-0 Turbo BASIC 


Specials: 

- Kalenderberechnungen 

- Wahrscheinlichkeit und Statistik 

- Literaturverzeichnis zum 
Thema BASIC 

Und vieles anderes mehr: 

Insgesamt über 500 Funktionen! 

Damit Sie das Rad nicht ständig neu er¬ 
finden müssen, steht Ihnen im ersten 
Band von DMV-Computer-Wissen eine 
in Umfang und Vielfalt unvergleichli¬ 
che Routinensammlung für Ihre eige¬ 
nen Programme in GW-, Turbo- und 
Quick BASIC zur Verfügung. Alle Li- 
stings und Programme sind auch auf 
Diskette erhältlich. 


’Call Interrupt’ 
in GW-BASIC 


AB SOFORT IM HANDEL 


DMV-Computer-Wissen Band 1: Basic-Toolbox 
DMV-Computer-Wissen I DATABOX (2 stck. 51/4“ und 1 stck. 31/2“) 


18,- DM* 
je 35,- DM* 


* Unabhängig von der Anzahl der bestellten Artikel berechnen wir für das Inland 4, - DM 
bzw. für das Ausland 6, - DM Porto und Verpackung. Bitte benutzen Sie die Bestellkarte. 
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